Highways19
Several authors
Created: 12-04-2024. Last modified: 29-05-2024.
Let us set some global options for all code chunks in this document.
knitr::opts_chunk$set(
message = FALSE, # Disable messages printed by R code chunks
warning = FALSE, # Disable warnings printed by R code chunks
echo = TRUE, # Show R code within code chunks in output
include = TRUE, # Include both R code and its results in output
eval = TRUE, # Evaluate R code chunks
cache = FALSE, # Enable caching of R code chunks for faster rendering
fig.align = "center",
out.width = "100%",
retina = 2,
error = TRUE,
collapse = TRUE
)
rm(list = ls())
set.seed(1982)1 Preprocessing
Let us now load some required libraries.
# Load required libraries
# inla.upgrade(testing = TRUE)
# remotes::install_github("inlabru-org/inlabru", ref = "devel")
# remotes::install_github("davidbolin/rspde", ref = "devel")
# remotes::install_github("davidbolin/metricgraph", ref = "devel")
# remotes::install_github("davidbolin/ngme2", ref = "devel")
library(INLA)
#inla.setOption(num.threads = 7)
library(inlabru)
library(rSPDE)
library(MetricGraph)
library(ngme2)
library(plotly)
library(dplyr)
library(sf)
library(here)Function standarize() below is later used to standardize
the covariate SpeedLimit.
To keep track of the changes, we provide summaries of every new created object. Those summaries can be accessed by pressing the Show buttons below
We load the graph object sf_graph (which only contains
weights) and the data (already graph-processed).
load(here("Graph_objects/graph_construction_19MAY24_FRC0134.RData"))
load(here("Data_files/data_day8152229_hour9_with_no_consecutive_zeros_19MAY24_FRC0134_graph_processed.RData"))
data_on_graph = data_on_graph %>%
dplyr::select(-datetime)We check the units of the graph.
sf_graph$get_edge_lengths() %>% head() %>% capture.output() %>% grep("^Units:", ., value = TRUE)
## [1] "Units: [km]"summary(sf_graph)
## A metric graph object with:
##
## Vertices:
## Total: 8781
## Degree 1: 15; Degree 2: 6409; Degree 3: 343; Degree 4: 1842; Degree 5: 58;
## Degree 6: 111; Degree 7: 2; Degree 8: 1;
## With incompatible directions: 0
##
## Edges:
## Total: 11104
## Lengths:
## Min: 0.00283468 ; Max: 1.480513 ; Total: 505.6148
## Weights:
## Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## That are circles: 0
##
## Graph units:
## Vertices unit: degrees ; Lengths unit: km
##
## Longitude and Latitude coordinates: TRUE
## Which spatial package: sf
## CRS: EPSG:4326
##
## Some characteristics of the graph:
## Connected: TRUE
## Has loops: FALSE
## Has multiple edges: TRUE
## Is a tree: FALSE
## Distance consistent: FALSE
## Has Euclidean edges: FALSE
##
## Computed quantities inside the graph:
## Laplacian: FALSE ; Geodesic distances: TRUE
## Resistance distances: FALSE ; Finite element matrices: FALSE
##
## Mesh: The graph has no mesh!
##
## Data: The graph has no data!
##
## Tolerances:
## vertex-vertex: 0.001
## vertex-edge: 0.001
## edge-edge: 0
summary(data_on_graph)
## ID speed day .distance_to_graph
## Min. :5701 Min. : 0.000 Min. : 8.00 Min. :0.000000
## 1st Qu.:6594 1st Qu.: 1.609 1st Qu.:15.00 1st Qu.:0.001903
## Median :6711 Median : 17.703 Median :22.00 Median :0.004031
## Mean :7377 Mean : 18.682 Mean :18.73 Mean :0.004898
## 3rd Qu.:8738 3rd Qu.: 30.577 3rd Qu.:29.00 3rd Qu.:0.006700
## Max. :8969 Max. :111.044 Max. :29.00 Max. :0.019999
## .edge_number .distance_on_edge .group .coord_x
## Min. : 1 Min. :0.0000 Length:65997 Min. :-122.5
## 1st Qu.: 2357 1st Qu.:0.2564 Class :character 1st Qu.:-122.4
## Median : 4674 Median :0.5125 Mode :character Median :-122.4
## Mean : 4926 Mean :0.5059 Mean :-122.4
## 3rd Qu.: 7550 3rd Qu.:0.7572 3rd Qu.:-122.4
## Max. :11098 Max. :1.0000 Max. :-122.4
## .coord_y
## Min. :37.70
## 1st Qu.:37.73
## Median :37.77
## Mean :37.76
## 3rd Qu.:37.78
## Max. :37.81The following commands remove zero speed observations that are 1m away from the graph, and after that, they remove any speed observations that are 3m away from the graph.
to_remove = data_on_graph %>%
filter(speed == 0, .distance_to_graph > 0.001)
data_on_graph = setdiff(data_on_graph, to_remove) %>%
filter(.distance_to_graph <= 0.003)summary(to_remove)
## ID speed day .distance_to_graph .edge_number
## Min. :5701 Min. :0 Min. : 8.00 Min. :0.001000 Min. : 1
## 1st Qu.:6583 1st Qu.:0 1st Qu.:15.00 1st Qu.:0.003217 1st Qu.: 2390
## Median :6703 Median :0 Median :22.00 Median :0.005513 Median : 4615
## Mean :7317 Mean :0 Mean :18.75 Mean :0.006589 Mean : 4886
## 3rd Qu.:8723 3rd Qu.:0 3rd Qu.:29.00 3rd Qu.:0.008568 3rd Qu.: 7520
## Max. :8969 Max. :0 Max. :29.00 Max. :0.019999 Max. :11096
## .distance_on_edge .group .coord_x .coord_y
## Min. :0.0000 Length:13893 Min. :-122.5 Min. :37.70
## 1st Qu.:0.2889 Class :character 1st Qu.:-122.4 1st Qu.:37.74
## Median :0.5351 Mode :character Median :-122.4 Median :37.77
## Mean :0.5152 Mean :-122.4 Mean :37.76
## 3rd Qu.:0.7495 3rd Qu.:-122.4 3rd Qu.:37.78
## Max. :1.0000 Max. :-122.4 Max. :37.81
summary(data_on_graph)
## ID speed day .distance_to_graph
## Min. :5701 Min. : 0.00 Min. : 8.0 Min. :0.0000000
## 1st Qu.:6598 1st Qu.: 12.87 1st Qu.: 8.0 1st Qu.:0.0006018
## Median :7202 Median : 24.14 Median :22.0 Median :0.0013158
## Mean :7513 Mean : 24.25 Mean :18.5 Mean :0.0013784
## 3rd Qu.:8771 3rd Qu.: 33.80 3rd Qu.:29.0 3rd Qu.:0.0021254
## Max. :8969 Max. :111.04 Max. :29.0 Max. :0.0029998
## .edge_number .distance_on_edge .group .coord_x
## Min. : 1 Min. :0.0000 Length:22070 Min. :-122.5
## 1st Qu.: 2075 1st Qu.:0.2579 Class :character 1st Qu.:-122.5
## Median : 4634 Median :0.5163 Mode :character Median :-122.4
## Mean : 4843 Mean :0.5099 Mean :-122.4
## 3rd Qu.: 7543 3rd Qu.:0.7621 3rd Qu.:-122.4
## Max. :11098 Max. :0.9999 Max. :-122.4
## .coord_y
## Min. :37.70
## 1st Qu.:37.73
## Median :37.76
## Mean :37.76
## 3rd Qu.:37.78
## Max. :37.81We add data to the graph.
sf_graph$get_data()
## # A tibble: 22,070 × 9
## ID speed day .distance_to_graph .coord_x .coord_y .edge_number
## <int> <dbl> <int> <dbl> <dbl> <dbl> <dbl>
## 1 6504 9.66 15 0.000236 -122. 37.8 3
## 2 6730 19.3 15 0.00168 -122. 37.8 3
## 3 6730 17.7 15 0.00164 -122. 37.8 3
## 4 6688 24.1 15 0.00175 -122. 37.8 3
## 5 6637 0 15 0.000768 -122. 37.8 3
## 6 6507 0 15 0.000938 -122. 37.8 3
## 7 6651 12.9 15 0.00245 -122. 37.8 3
## 8 6597 25.7 15 0.000381 -122. 37.8 6
## 9 6694 19.3 15 0.00205 -122. 37.8 6
## 10 6637 25.7 15 0.00151 -122. 37.8 6
## # ℹ 22,060 more rows
## # ℹ 2 more variables: .distance_on_edge <dbl>, .group <chr>
summary(sf_graph)
## A metric graph object with:
##
## Vertices:
## Total: 8781
## Degree 1: 15; Degree 2: 6409; Degree 3: 343; Degree 4: 1842; Degree 5: 58;
## Degree 6: 111; Degree 7: 2; Degree 8: 1;
## With incompatible directions: 0
##
## Edges:
## Total: 11104
## Lengths:
## Min: 0.00283468 ; Max: 1.480513 ; Total: 505.6148
## Weights:
## Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## That are circles: 0
##
## Graph units:
## Vertices unit: degrees ; Lengths unit: km
##
## Longitude and Latitude coordinates: TRUE
## Which spatial package: sf
## CRS: EPSG:4326
##
## Some characteristics of the graph:
## Connected: TRUE
## Has loops: FALSE
## Has multiple edges: TRUE
## Is a tree: FALSE
## Distance consistent: FALSE
## Has Euclidean edges: FALSE
##
## Computed quantities inside the graph:
## Laplacian: FALSE ; Geodesic distances: TRUE
## Resistance distances: FALSE ; Finite element matrices: FALSE
##
## Mesh: The graph has no mesh!
##
## Data:
## Columns: ID speed day
## Groups: .group
##
## Tolerances:
## vertex-vertex: 0.001
## vertex-edge: 0.001
## edge-edge: 0We get the values of the weights at data locations. This essentially gives us covariates from the weights.
sf_graph$get_data()
## # A tibble: 86,844 × 50
## ID speed day .distance_to_graph Length FRC SpeedLimit StreetName
## <int> <dbl> <int> <dbl> <dbl> <chr> <dbl> <chr>
## 1 NA NA NA NA 0.0826 4 40 16th St
## 2 NA NA NA NA 0.0737 4 32 O'Farrell St
## 3 6504 9.66 15 0.000236 0.0737 4 32 O'Farrell St
## 4 NA NA NA NA 0.0737 4 32 O'Farrell St
## 5 NA NA NA NA 0.0737 4 32 O'Farrell St
## 6 NA NA NA NA 0.0737 4 32 O'Farrell St
## 7 NA NA NA NA 0.0737 4 32 O'Farrell St
## 8 NA NA NA NA 0.0737 4 32 O'Farrell St
## 9 NA NA NA NA 0.0737 4 32 O'Farrell St
## 10 NA NA NA NA 0.0737 4 32 O'Farrell St
## # ℹ 86,834 more rows
## # ℹ 42 more variables: harmonicAverageSpeed <dbl>, medianSpeed <dbl>,
## # averageSpeed <dbl>, sampleSize <int>, averageTravelTime <dbl>,
## # medianTravelTime <dbl>, travelTimeRatio <dbl>, List_Number <int>,
## # `5percentile` <int>, `10percentile` <int>, `15percentile` <int>,
## # `20percentile` <int>, `25percentile` <int>, `30percentile` <int>,
## # `35percentile` <int>, `40percentile` <int>, `45percentile` <int>, …
summary(sf_graph)
## A metric graph object with:
##
## Vertices:
## Total: 8781
## Degree 1: 15; Degree 2: 6409; Degree 3: 343; Degree 4: 1842; Degree 5: 58;
## Degree 6: 111; Degree 7: 2; Degree 8: 1;
## With incompatible directions: 0
##
## Edges:
## Total: 11104
## Lengths:
## Min: 0.00283468 ; Max: 1.480513 ; Total: 505.6148
## Weights:
## Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## That are circles: 0
##
## Graph units:
## Vertices unit: degrees ; Lengths unit: km
##
## Longitude and Latitude coordinates: TRUE
## Which spatial package: sf
## CRS: EPSG:4326
##
## Some characteristics of the graph:
## Connected: TRUE
## Has loops: FALSE
## Has multiple edges: TRUE
## Is a tree: FALSE
## Distance consistent: FALSE
## Has Euclidean edges: FALSE
##
## Computed quantities inside the graph:
## Laplacian: FALSE ; Geodesic distances: TRUE
## Resistance distances: FALSE ; Finite element matrices: FALSE
##
## Mesh: The graph has no mesh!
##
## Data:
## Columns: ID speed day Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## Groups: .group
##
## Tolerances:
## vertex-vertex: 0.001
## vertex-edge: 0.001
## edge-edge: 0When running
sf_graph$edgeweight_to_data(data_loc = TRUE), some
NA values are created (because the data is grouped). We
remove them below. We also standardize the SpeedLimit
covariate.
data = sf_graph$get_data() %>%
drop_na(-StreetName) %>% # this drops all rows with at least one NA value but without taking into account StreetName
mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
dplyr::select(speed, SpeedLimit)The code of chunk below was executed only one time.
aux = data |>
rename(distance_on_edge = .distance_on_edge, edge_number = .edge_number) |>
as.data.frame() |>
dplyr::select(edge_number, distance_on_edge, .group)
distmatrixlist = list()
for (i in 1:4) {
distmatrixlist[[i]] = sf_graph$compute_geodist_PtE(PtE = aux %>%
filter(.group == as.character(i)) %>%
dplyr::select(-.group),
normalized = TRUE,
include_vertices = FALSE)
}
## Error in `$<-.data.frame`(`*tmp*`, included, value = TRUE): replacement has 1 row, data has 0
save(distmatrixlist, file = here("Models_output/distmatrix_day7142128_hour16.RData"))
#
# aa = aux %>% filter(.group == as.character(4)) %>% dplyr::select(-.group)
# dim(unique(aa))
# AA = sf_graph$compute_geodist_PtE(PtE = aa,normalized = TRUE,
# include_vertices = FALSE)The code of chunk above was executed only one time.
summary(data)
## speed SpeedLimit .group .edge_number
## Min. : 0.00 Min. :-2.5417 Length:22070 Min. : 1
## 1st Qu.: 12.87 1st Qu.:-0.4556 Class :character 1st Qu.: 2075
## Median : 24.14 Median :-0.4556 Mode :character Median : 4634
## Mean : 24.25 Mean : 0.0000 Mean : 4843
## 3rd Qu.: 33.80 3rd Qu.: 0.3030 3rd Qu.: 7543
## Max. :111.04 Max. : 5.7079 Max. :11098
## .distance_on_edge .coord_x .coord_y
## Min. :0.0000 Min. :-122.5 Min. :37.70
## 1st Qu.:0.2579 1st Qu.:-122.5 1st Qu.:37.73
## Median :0.5163 Median :-122.4 Median :37.76
## Mean :0.5099 Mean :-122.4 Mean :37.76
## 3rd Qu.:0.7621 3rd Qu.:-122.4 3rd Qu.:37.78
## Max. :0.9999 Max. :-122.4 Max. :37.81We add the data again but now with the new standardized
SpeedLimit covariate.
sf_graph$get_data()
## # A tibble: 22,070 × 7
## speed SpeedLimit .coord_x .coord_y .edge_number .distance_on_edge .group
## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
## 1 9.66 -1.21 -122. 37.8 3 0.0611 15
## 2 19.3 -1.21 -122. 37.8 3 0.270 15
## 3 17.7 -1.21 -122. 37.8 3 0.417 15
## 4 24.1 -1.21 -122. 37.8 3 0.536 15
## 5 0 -1.21 -122. 37.8 3 0.639 15
## 6 0 -1.21 -122. 37.8 3 0.694 15
## 7 12.9 -1.21 -122. 37.8 3 0.720 15
## 8 25.7 -1.21 -122. 37.8 6 0.0859 15
## 9 19.3 -1.21 -122. 37.8 6 0.194 15
## 10 25.7 -1.21 -122. 37.8 6 0.446 15
## # ℹ 22,060 more rows
summary(sf_graph)
## A metric graph object with:
##
## Vertices:
## Total: 8781
## Degree 1: 15; Degree 2: 6409; Degree 3: 343; Degree 4: 1842; Degree 5: 58;
## Degree 6: 111; Degree 7: 2; Degree 8: 1;
## With incompatible directions: 0
##
## Edges:
## Total: 11104
## Lengths:
## Min: 0.00283468 ; Max: 1.480513 ; Total: 505.6148
## Weights:
## Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## That are circles: 0
##
## Graph units:
## Vertices unit: degrees ; Lengths unit: km
##
## Longitude and Latitude coordinates: TRUE
## Which spatial package: sf
## CRS: EPSG:4326
##
## Some characteristics of the graph:
## Connected: TRUE
## Has loops: FALSE
## Has multiple edges: TRUE
## Is a tree: FALSE
## Distance consistent: FALSE
## Has Euclidean edges: FALSE
##
## Computed quantities inside the graph:
## Laplacian: FALSE ; Geodesic distances: TRUE
## Resistance distances: FALSE ; Finite element matrices: FALSE
##
## Mesh: The graph has no mesh!
##
## Data:
## Columns: speed SpeedLimit
## Groups: .group
##
## Tolerances:
## vertex-vertex: 0.001
## vertex-edge: 0.001
## edge-edge: 0We build a mesh.
summary(sf_graph)
## A metric graph object with:
##
## Vertices:
## Total: 8781
## Degree 1: 15; Degree 2: 6409; Degree 3: 343; Degree 4: 1842; Degree 5: 58;
## Degree 6: 111; Degree 7: 2; Degree 8: 1;
## With incompatible directions: 0
##
## Edges:
## Total: 11104
## Lengths:
## Min: 0.00283468 ; Max: 1.480513 ; Total: 505.6148
## Weights:
## Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour
## That are circles: 0
##
## Graph units:
## Vertices unit: degrees ; Lengths unit: km
##
## Longitude and Latitude coordinates: TRUE
## Which spatial package: sf
## CRS: EPSG:4326
##
## Some characteristics of the graph:
## Connected: TRUE
## Has loops: FALSE
## Has multiple edges: TRUE
## Is a tree: FALSE
## Distance consistent: FALSE
## Has Euclidean edges: FALSE
##
## Computed quantities inside the graph:
## Laplacian: FALSE ; Geodesic distances: TRUE
## Resistance distances: FALSE ; Finite element matrices: FALSE
##
## Mesh:
## Max h_e: 0.04999869 ; Min n_e: 0
##
## Data:
## Columns: speed SpeedLimit
## Groups: .group
##
## Tolerances:
## vertex-vertex: 0.001
## vertex-edge: 0.001
## edge-edge: 0We get the value of the weights at mesh locations. This will allow us
to built matrices B.sigma and B.range below.
Again,
sf_graph$edgeweight_to_data(mesh = TRUE, add = FALSE, return = TRUE)
creates repeated information (because the data is grouped). We fix that
by filtering one group. We also standardize the SpeedLimit
covariate.
mesh = sf_graph$edgeweight_to_data(mesh = TRUE,
add = FALSE,
return = TRUE) %>%
filter(.group == 1) %>%
mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
dplyr:::select.data.frame(SpeedLimit)summary(mesh)
## SpeedLimit
## Min. : NA
## 1st Qu.: NA
## Median : NA
## Mean :NaN
## 3rd Qu.: NA
## Max. : NA1.1 Stationary model
- Observe that we are considering replicates.
stat.time.ini <- Sys.time()
################################################################################
################################# STATIONARY MODEL #############################
################################################################################
rspde_model_stat <- rspde.metric_graph(sf_graph,
parameterization = "matern",
nu = 0.5)str(rspde_model_stat)
## List of 21
## $ f :List of 3
## ..$ model : chr "cgeneric"
## ..$ n : int 13932
## ..$ cgeneric:List of 5
## .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
## .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. ..$ n : int 13932
## .. ..$ debug: logi FALSE
## .. ..$ data :List of 5
## .. .. ..$ ints :List of 5
## .. .. .. ..$ n : int 13932
## .. .. .. ..$ debug : int 0
## .. .. .. ..$ m_alpha : int 1
## .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
## .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. ..$ doubles :List of 4
## .. .. .. ..$ matrices_less : num [1:58136] 0.0534 0 0 0 0.0776 ...
## .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
## .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. ..$ nu : num 0.5
## .. .. ..$ characters:List of 4
## .. .. .. ..$ model : chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. ..$ shlib : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. ..$ parameterization : chr "matern"
## .. .. .. ..$ prior.theta.param: chr "theta"
## .. .. ..$ matrices :List of 1
## .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
## .. .. ..$ smatrices : list()
## .. ..- attr(*, "class")= chr "inla.cgeneric"
## $ cgeneric_type : chr "int_alpha"
## $ nu : num 0.5
## $ theta.prior.mean : num [1:2] 0 1.35
## $ prior.nu :List of 4
## ..$ loglocation: num -5e-06
## ..$ mean : num 1
## ..$ prec : num 3
## ..$ logscale : num 1
## $ theta.prior.prec : num [1:2, 1:2] 0.1 0 0 0.1
## $ start.nu : num 0.5
## $ integer.nu : logi TRUE
## $ start.theta : num [1:2] 0 1.35
## $ stationary : logi TRUE
## $ rspde.order : num 2
## $ dim : num 1
## $ est_nu : logi FALSE
## $ nu.upper.bound : num 2
## $ prior.nu.dist : chr "lognormal"
## $ debug : logi FALSE
## $ type.rational.approx: chr "chebfun"
## $ mesh :Classes 'metric_graph', 'R6' <metric_graph>
## Public:
## add_mesh_observations: function (data = NULL, group = NULL)
## add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE,
## buildC: function (alpha = 2, edge_constraint = FALSE)
## buildDirectionalConstraints: function (alpha = 1)
## C: NULL
## characteristics: list
## check_distance_consistency: function ()
## check_euclidean: function ()
## clear_observations: function ()
## clone: function (deep = FALSE)
## CoB: NULL
## compute_characteristics: function (check_euclidean = FALSE)
## compute_fem: function (petrov = FALSE)
## compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_geodist_mesh: function ()
## compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0)
## compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_PtE_edges: function ()
## compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE,
## compute_resdist_mesh: function ()
## compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE,
## coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE)
## drop_na: function (...)
## E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
## edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
## edges: metric_graph_edges
## edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL,
## fem_basis: function (PtE)
## filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## geo_dist: list
## get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE)
## get_degrees: function (which = "degree")
## get_edge_lengths: function (unit = NULL)
## get_edge_weights: function (data.frame = FALSE, tibble = TRUE)
## get_groups: function (get_cols = FALSE)
## get_initial_graph: function ()
## get_locations: function ()
## get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE)
## get_PtE: function ()
## get_vertices_incomp_dir: function ()
## initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL,
## is_tree: function ()
## Laplacian: NULL
## mesh: list
## mesh_A: function (PtE)
## mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## nE: 11104
## nV: 8781
## observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE)
## plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE,
## plot_connections: function ()
## plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE,
## plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black",
## print: function ()
## process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## prune_vertices: function (check_weights = TRUE, verbose = FALSE)
## PtV: NULL
## res_dist: NULL
## select: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL)
## summarise: function (..., .include_graph_groups = FALSE, .groups = NULL,
## summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE,
## V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
## vertices: metric_graph_vertices
## VtEfirst: function ()
## Private:
## A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE,
## add_vertices: function (PtE, tolerance = 1e-10, verbose)
## addinfo: FALSE
## clear_initial_info: function ()
## compute_degrees: function ()
## compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose)
## compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit,
## connected: TRUE
## coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string,
## create_update_vertices: function ()
## crs: crs
## data: metric_graph_data, list
## edge_weights: tbl_df, tbl, data.frame
## find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat)
## find_mesh_bc: function ()
## get_edge_weights_internal: function (data.frame = FALSE)
## group_col: .group
## initial_edges_added: NULL
## initial_graph: metric_graph, R6
## kirchhoff_weights: NULL
## length_unit: km
## line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs,
## longlat: TRUE
## merge_close_vertices: function (tolerance, fact)
## merge.all.deg2: function ()
## mesh_merge_deg2: function ()
## mesh_merge_outs: function ()
## move_V_first: function ()
## plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black",
## plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)",
## proj4string: NULL
## prune_warning: FALSE
## pruned: FALSE
## PtE_to_mesh: function (PtE)
## ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613 ...
## remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string,
## remove.first.deg2: function (res)
## set_first_weights: function (weights = rep(1, self$nE))
## set_petrov_matrices: function ()
## split_edge: function (Ei, t, tolerance = 0)
## temp_PtE: NULL
## tolerance: list
## transform: FALSE
## vertex_unit: degrees
## which_longlat: sf
## $ fem_mesh :List of 4
## ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. ..@ i : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. ..@ j : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. ..@ Dimnames:List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : NULL
## .. .. ..@ x : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
## .. .. ..@ factors : list()
## ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. ..@ i : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. ..@ p : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
## .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. ..@ Dimnames:List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : NULL
## .. .. ..@ x : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
## .. .. ..@ factors : list()
## ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. ..@ i : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
## .. .. ..@ p : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
## .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. ..@ Dimnames:List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : NULL
## .. .. ..@ x : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
## .. .. ..@ factors : list()
## ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. ..@ i : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
## .. .. ..@ p : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
## .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. ..@ Dimnames:List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : NULL
## .. .. ..@ x : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
## .. .. ..@ factors : list()
## $ parameterization : chr "matern"
## $ n.spde : int 13932
## - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"str(data_rspde_bru_stat)
## List of 4
## $ data :List of 8
## ..$ speed : num [1:22070] 9.66 19.31 17.7 24.14 0 ...
## ..$ SpeedLimit : num [1:22070] -1.21 -1.21 -1.21 -1.21 -1.21 ...
## ..$ .coord_x : num [1:22070] -122 -122 -122 -122 -122 ...
## ..$ .coord_y : num [1:22070] 37.8 37.8 37.8 37.8 37.8 ...
## ..$ .edge_number : num [1:22070] 3 3 3 3 3 3 3 6 6 6 ...
## ..$ .distance_on_edge: num [1:22070] 0.0611 0.2701 0.4171 0.5363 0.6388 ...
## ..$ .group : chr [1:22070] "15" "15" "15" "15" ...
## ..$ loc : num [1:22070, 1:2] 3 3 3 3 3 3 3 6 6 6 ...
## ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
## $ index:List of 3
## ..$ field : int [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
## ..$ field.group: int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ field.repl : int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
## ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
## ..- attr(*, "rspde.order")= num 0
## ..- attr(*, "integer_nu")= logi TRUE
## ..- attr(*, "n.mesh")= int 13932
## ..- attr(*, "name")= chr "field"
## ..- attr(*, "n.group")= int 1
## ..- attr(*, "n.repl")= int 4
## $ repl : chr [1:22070] "15" "15" "15" "15" ...
## $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. ..@ i : int [1:44140] 0 1 2 11 12 13 14 15 16 3 ...
## .. ..@ p : int [1:55729] 0 0 0 0 0 9 13 13 13 22 ...
## .. ..@ Dim : int [1:2] 22070 55728
## .. ..@ Dimnames:List of 2
## .. .. ..$ : NULL
## .. .. ..$ : NULL
## .. ..@ x : num [1:44140] 0.878 0.46 0.166 0.455 0.576 ...
## .. ..@ factors : list()cmp_stat = speed ~ -1 +
Intercept(1) +
SpeedLimit +
field(loc, model = rspde_model_stat,
replicate = data_rspde_bru_stat[["repl"]])
rspde_fit_stat <-
bru(cmp_stat,
data = data_rspde_bru_stat[["data"]],
family = "gaussian",
options = list(verbose = FALSE)
)str(rspde_fit_stat)
## List of 56
## $ names.fixed : chr [1:2] "Intercept" "SpeedLimit"
## $ summary.fixed :'data.frame': 2 obs. of 7 variables:
## ..$ mean : num [1:2] 27.44 3.26
## ..$ sd : num [1:2] 0.284 0.164
## ..$ 0.025quant: num [1:2] 26.89 2.94
## ..$ 0.5quant : num [1:2] 27.44 3.26
## ..$ 0.975quant: num [1:2] 28 3.58
## ..$ mode : num [1:2] 27.44 3.26
## ..$ kld : num [1:2] 7.34e-09 2.24e-08
## $ marginals.fixed :List of 2
## ..$ Intercept : num [1:43, 1:2] 26.3 26.4 26.6 26.8 26.9 ...
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## ..$ SpeedLimit: num [1:43, 1:2] 2.58 2.66 2.76 2.88 2.94 ...
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## $ summary.lincomb :'data.frame': 0 obs. of 0 variables
## $ marginals.lincomb : NULL
## $ size.lincomb : NULL
## $ summary.lincomb.derived :'data.frame': 0 obs. of 0 variables
## $ marginals.lincomb.derived : NULL
## $ size.lincomb.derived : NULL
## $ mlik : num [1:2, 1] -86779 -86778
## ..- attr(*, "dimnames")=List of 2
## .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
## .. ..$ : NULL
## $ cpo :List of 3
## ..$ cpo : logi(0)
## ..$ pit : logi(0)
## ..$ failure: logi(0)
## $ gcpo :List of 5
## ..$ gcpo : NULL
## ..$ kld : NULL
## ..$ mean : NULL
## ..$ sd : NULL
## ..$ groups: NULL
## $ po :List of 1
## ..$ po: num [1:22070] 0.0393 0.0268 0.0337 0.0217 0.0166 ...
## $ waic :List of 4
## ..$ waic : num 167589
## ..$ p.eff : num 5122
## ..$ local.waic : num [1:22070] 6.51 7.46 6.94 8.29 8.86 ...
## ..$ local.p.eff: num [1:22070] 0.016 0.108 0.079 0.312 0.332 ...
## $ residuals :List of 1
## ..$ deviance.residuals: num [1:22070] 0.426 1.015 0.737 1.272 -1.476 ...
## $ model.random : chr "CGeneric"
## $ summary.random :List of 1
## ..$ field:'data.frame': 55728 obs. of 8 variables:
## .. ..$ ID : num [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
## .. ..$ mean : num [1:55728] -8.4968 -4.4497 -0.0484 -0.0177 -16.1943 ...
## .. ..$ sd : num [1:55728] 10.89 11.59 16.66 16.69 4.07 ...
## .. ..$ 0.025quant: num [1:55728] -29.9 -27.2 -32.7 -32.7 -24.2 ...
## .. ..$ 0.5quant : num [1:55728] -8.4947 -4.4458 -0.0482 -0.0176 -16.1946 ...
## .. ..$ 0.975quant: num [1:55728] 12.9 18.3 32.6 32.7 -8.2 ...
## .. ..$ mode : num [1:55728] -8.4947 -4.4457 -0.0482 -0.0176 -16.1946 ...
## .. ..$ kld : num [1:55728] 3.01e-11 3.83e-11 1.85e-12 8.30e-13 4.60e-11 ...
## $ marginals.random :List of 1
## ..$ field:List of 55728
## .. ..$ index.1 : num [1:43, 1:2] -55 -49.1 -42.2 -33.9 -29.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.2 : num [1:43, 1:2] -54 -47.7 -40.3 -31.4 -27.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.3 : num [1:43, 1:2] -71.2 -62.1 -51.6 -38.8 -32.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.4 : num [1:43, 1:2] -71.3 -62.2 -51.7 -38.9 -32.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.5 : num [1:43, 1:2] -33.6 -31.4 -28.8 -25.7 -24.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.6 : num [1:43, 1:2] -39.9 -36 -31.5 -26.1 -23.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.7 : num [1:43, 1:2] -62.4 -55.3 -47 -37 -32.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.8 : num [1:43, 1:2] -69.4 -61.1 -51.5 -39.9 -34.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.9 : num [1:43, 1:2] -32 -29.1 -25.8 -21.8 -19.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.10 : num [1:43, 1:2] -32.8 -30.4 -27.6 -24.3 -22.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.11 : num [1:43, 1:2] -32.4 -29.7 -26.4 -22.5 -20.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.12 : num [1:43, 1:2] -24.6 -21.6 -18 -13.6 -11.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.13 : num [1:43, 1:2] -19.85 -17.23 -14.19 -10.5 -8.73 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.14 : num [1:43, 1:2] -20.1 -17.8 -15.1 -11.9 -10.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.15 : num [1:43, 1:2] -18.04 -15.42 -12.39 -8.7 -6.93 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.16 : num [1:43, 1:2] -23.8 -21.4 -18.5 -15 -13.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.17 : num [1:43, 1:2] -66.7 -58.6 -49.1 -37.7 -32.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.18 : num [1:43, 1:2] -69.3 -61.4 -52.3 -41.2 -35.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.19 : num [1:43, 1:2] -43.2 -39.3 -34.7 -29.2 -26.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.20 : num [1:43, 1:2] -68.8 -61 -52 -41 -35.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.21 : num [1:43, 1:2] -29 -25.8 -22.1 -17.5 -15.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.22 : num [1:43, 1:2] -42.7 -38.6 -33.8 -28.1 -25.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.23 : num [1:43, 1:2] -41.3 -37.1 -32.3 -26.4 -23.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.24 : num [1:43, 1:2] -33.7 -30.9 -27.6 -23.5 -21.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.25 : num [1:43, 1:2] -19 -17.3 -15.2 -12.8 -11.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.26 : num [1:43, 1:2] -47.1 -40.9 -33.8 -25.2 -21.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.27 : num [1:43, 1:2] -13.47 -11.7 -9.66 -7.17 -5.97 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.28 : num [1:43, 1:2] -37.2 -33.4 -29 -23.7 -21.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.29 : num [1:43, 1:2] -35.7 -32.3 -28.2 -23.3 -20.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.30 : num [1:43, 1:2] -33.8 -29.5 -24.5 -18.5 -15.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.31 : num [1:43, 1:2] -22.82 -19.59 -15.85 -11.31 -9.13 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.32 : num [1:43, 1:2] -23.4 -20.8 -17.8 -14.1 -12.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.33 : num [1:43, 1:2] -71.4 -62.3 -51.7 -38.9 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.34 : num [1:43, 1:2] -71.3 -62.2 -51.7 -38.9 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.35 : num [1:43, 1:2] -30.05 -25.23 -19.63 -12.84 -9.58 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.36 : num [1:43, 1:2] -37.7 -32 -25.4 -17.4 -13.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.37 : num [1:43, 1:2] -71.3 -62.2 -51.7 -38.9 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.38 : num [1:43, 1:2] -71.4 -62.3 -51.7 -38.9 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.39 : num [1:43, 1:2] -46.8 -42.8 -38.2 -32.6 -29.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.40 : num [1:43, 1:2] -39.3 -36.5 -33.4 -29.6 -27.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.41 : num [1:43, 1:2] -38.2 -34.9 -31 -26.4 -24.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.42 : num [1:43, 1:2] -48.1 -43.1 -37.3 -30.2 -26.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.43 : num [1:43, 1:2] -63.2 -55.2 -46.1 -34.9 -29.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.44 : num [1:43, 1:2] -56.7 -49.5 -41.3 -31.2 -26.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.45 : num [1:43, 1:2] -60 -52.4 -43.6 -33 -27.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.46 : num [1:43, 1:2] -53.3 -46.6 -38.9 -29.5 -25 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.47 : num [1:43, 1:2] -36.2 -31.9 -27 -20.9 -18 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.48 : num [1:43, 1:2] -65.4 -57.5 -48.4 -37.4 -32.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.49 : num [1:43, 1:2] -64.1 -56.3 -47.2 -36.2 -30.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.50 : num [1:43, 1:2] -47.6 -41.7 -34.9 -26.6 -22.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.51 : num [1:43, 1:2] -63.4 -55.5 -46.3 -35.2 -29.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.52 : num [1:43, 1:2] -50.4 -44.8 -38.4 -30.7 -26.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.53 : num [1:43, 1:2] -63.1 -55.2 -46 -34.8 -29.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.54 : num [1:43, 1:2] -49.8 -43.5 -36.3 -27.5 -23.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.55 : num [1:43, 1:2] -62.9 -55.1 -46.2 -35.3 -30 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.56 : num [1:43, 1:2] -59.5 -52.4 -44.1 -34.1 -29.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.57 : num [1:43, 1:2] -67.3 -59.5 -50.5 -39.6 -34.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.58 : num [1:43, 1:2] -48.2 -43.5 -38 -31.4 -28.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.59 : num [1:43, 1:2] -63.6 -56.1 -47.3 -36.7 -31.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.60 : num [1:43, 1:2] -62.1 -54.3 -45.3 -34.4 -29.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.61 : num [1:43, 1:2] -56.2 -48.8 -40.2 -29.8 -24.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.62 : num [1:43, 1:2] -36.5 -31.5 -25.9 -18.9 -15.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.63 : num [1:43, 1:2] -45 -39.1 -32.4 -24.1 -20.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.64 : num [1:43, 1:2] -46 -40.1 -33.3 -25.1 -21.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.65 : num [1:43, 1:2] -41.2 -36 -30.1 -22.8 -19.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.66 : num [1:43, 1:2] -45 -38.6 -31.2 -22.3 -18 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.67 : num [1:43, 1:2] -27.2 -22.79 -17.68 -11.46 -8.47 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.68 : num [1:43, 1:2] -46.5 -40.9 -34.3 -26.3 -22.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.69 : num [1:43, 1:2] -44.2 -39.1 -33 -25.7 -22.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.70 : num [1:43, 1:2] -45 -39.9 -34 -26.8 -23.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.71 : num [1:43, 1:2] -44.3 -39 -32.8 -25.4 -21.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.72 : num [1:43, 1:2] -67 -58.5 -48.6 -36.6 -30.9 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.73 : num [1:43, 1:2] -66.1 -57.7 -47.9 -36.1 -30.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.74 : num [1:43, 1:2] -44.4 -40.1 -35.1 -29 -26.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.75 : num [1:43, 1:2] -51.5 -45.9 -39.3 -31.4 -27.5 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.76 : num [1:43, 1:2] -45.9 -41.2 -35.6 -28.9 -25.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.77 : num [1:43, 1:2] -58.6 -52.2 -44.9 -36 -31.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.78 : num [1:43, 1:2] -51.9 -46.4 -39.9 -32.1 -28.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.79 : num [1:43, 1:2] -53.4 -47.8 -41.2 -33.2 -29.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.80 : num [1:43, 1:2] -33.7 -29.8 -25.2 -19.7 -17 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.81 : num [1:43, 1:2] -47.3 -41.5 -34.7 -26.5 -22.6 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.82 : num [1:43, 1:2] -49.8 -43.6 -36.4 -27.6 -23.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.83 : num [1:43, 1:2] -41.6 -36.8 -31.2 -24.4 -21.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.84 : num [1:43, 1:2] -36.4 -32.4 -27.7 -21.9 -19.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.85 : num [1:43, 1:2] -71.5 -62.4 -51.8 -39 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.86 : num [1:43, 1:2] -71.4 -62.3 -51.7 -38.9 -32.8 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.87 : num [1:43, 1:2] -50.5 -44.1 -36.7 -27.6 -23.3 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.88 : num [1:43, 1:2] -49.7 -43.4 -36.1 -27.3 -23 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.89 : num [1:43, 1:2] -74.3 -65.7 -55.8 -43.8 -38 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.90 : num [1:43, 1:2] -73.7 -65.1 -55.1 -43 -37.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.91 : num [1:43, 1:2] -29.7 -26.6 -22.9 -18.4 -16.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.92 : num [1:43, 1:2] -27.2 -24.4 -21.2 -17.2 -15.4 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.93 : num [1:43, 1:2] -50.6 -44.1 -36.7 -27.6 -23.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.94 : num [1:43, 1:2] -50.6 -44.1 -36.6 -27.6 -23.2 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.95 : num [1:43, 1:2] -22.01 -18.9 -15.31 -10.94 -8.84 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.96 : num [1:43, 1:2] -9.655 -7.553 -5.114 -2.15 -0.728 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.97 : num [1:43, 1:2] -35.3 -32.1 -28.3 -23.8 -21.7 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.98 : num [1:43, 1:2] -12.132 -9.398 -6.226 -2.371 -0.522 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. ..$ index.99 : num [1:43, 1:2] -33.7 -29.3 -24.2 -18 -15.1 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : NULL
## .. .. .. ..$ : chr [1:2] "x" "y"
## .. .. [list output truncated]
## $ size.random :List of 1
## ..$ :List of 5
## .. ..$ n : num 13932
## .. ..$ N : num 13932
## .. ..$ Ntotal: num 55728
## .. ..$ ngroup: num 1
## .. ..$ nrep : num 4
## $ summary.linear.predictor :'data.frame': 77800 obs. of 7 variables:
## ..$ mean : num [1:77800] 7.99 10.36 12.03 13.05 13.27 ...
## ..$ sd : num [1:77800] 3.61 3.11 3.89 4.24 3.71 ...
## ..$ 0.025quant: num [1:77800] 0.906 4.257 4.407 4.737 5.984 ...
## ..$ 0.5quant : num [1:77800] 7.99 10.36 12.03 13.04 13.27 ...
## ..$ 0.975quant: num [1:77800] 15.1 16.5 19.6 21.4 20.6 ...
## ..$ mode : num [1:77800] 7.99 10.36 12.03 13.04 13.27 ...
## ..$ kld : num [1:77800] 4.61e-11 4.65e-11 4.40e-11 4.47e-11 4.74e-11 ...
## $ marginals.linear.predictor : NULL
## $ summary.fitted.values :'data.frame': 77800 obs. of 6 variables:
## ..$ mean : num [1:77800] 7.99 10.36 12.03 13.05 13.27 ...
## ..$ sd : num [1:77800] 3.61 3.11 3.89 4.24 3.71 ...
## ..$ 0.025quant: num [1:77800] 0.906 4.257 4.407 4.737 5.984 ...
## ..$ 0.5quant : num [1:77800] 7.99 10.36 12.03 13.04 13.27 ...
## ..$ 0.975quant: num [1:77800] 15.1 16.5 19.6 21.4 20.6 ...
## ..$ mode : num [1:77800] 7.99 10.36 12.03 13.04 13.27 ...
## $ marginals.fitted.values : NULL
## $ size.linear.predictor :List of 5
## ..$ n : num 55730
## ..$ N : num 55730
## ..$ Ntotal: num 77800
## ..$ ngroup: num 1
## ..$ nrep : num 2
## $ summary.hyperpar :'data.frame': 3 obs. of 6 variables:
## ..$ mean : num [1:3] 0.0115 2.8228 -1.3642
## ..$ sd : num [1:3] 0.000153 0.016997 0.068005
## ..$ 0.025quant: num [1:3] 0.0112 2.7894 -1.4974
## ..$ 0.5quant : num [1:3] 0.0115 2.8228 -1.3645
## ..$ 0.975quant: num [1:3] 0.0118 2.8563 -1.2296
## ..$ mode : num [1:3] 0.0115 2.8226 -1.3656
## $ marginals.hyperpar :List of 3
## ..$ Precision for the Gaussian observations: num [1:43, 1:2] 0.0108 0.0109 0.011 0.0111 0.0112 ...
## .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## ..$ Theta1 for field : num [1:43, 1:2] 2.75 2.76 2.77 2.78 2.79 ...
## .. ..- attr(*, "hyperid")= chr ""
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## ..$ Theta2 for field : num [1:43, 1:2] -1.65 -1.62 -1.57 -1.52 -1.5 ...
## .. ..- attr(*, "hyperid")= chr ""
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## $ internal.summary.hyperpar :'data.frame': 3 obs. of 6 variables:
## ..$ mean : num [1:3] -4.47 2.82 -1.36
## ..$ sd : num [1:3] 0.0133 0.017 0.068
## ..$ 0.025quant: num [1:3] -4.49 2.79 -1.5
## ..$ 0.5quant : num [1:3] -4.47 2.82 -1.36
## ..$ 0.975quant: num [1:3] -4.44 2.86 -1.23
## ..$ mode : num [1:3] -4.47 2.82 -1.37
## $ internal.marginals.hyperpar:List of 3
## ..$ Log precision for the Gaussian observations: num [1:43, 1:2] -4.53 -4.52 -4.51 -4.5 -4.49 ...
## .. ..- attr(*, "hyperid")= chr "65001|INLA.Data1"
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## ..$ Theta1 for field : num [1:43, 1:2] 2.75 2.76 2.77 2.78 2.79 ...
## .. ..- attr(*, "hyperid")= chr ""
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## ..$ Theta2 for field : num [1:43, 1:2] -1.65 -1.62 -1.57 -1.52 -1.5 ...
## .. ..- attr(*, "hyperid")= chr ""
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : NULL
## .. .. ..$ : chr [1:2] "x" "y"
## $ offset.linear.predictor : num [1:77800] 0 0 0 0 0 0 0 0 0 0 ...
## $ model.spde2.blc : NULL
## $ summary.spde2.blc : list()
## $ marginals.spde2.blc : NULL
## $ size.spde2.blc : NULL
## $ model.spde3.blc : NULL
## $ summary.spde3.blc : list()
## $ marginals.spde3.blc : NULL
## $ size.spde3.blc : NULL
## $ logfile : chr [1:632] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" " Read ntt 24 1 with max.threads 24" " Found num.threads = 24:1 max_threads = 24" ...
## $ misc :List of 22
## ..$ cov.intern : num [1:3, 1:3] 0.000178 0.000016 -0.000221 0.000016 0.000289 ...
## ..$ cor.intern : num [1:3, 1:3] 1 0.0706 -0.2437 0.0706 1 ...
## ..$ cov.intern.eigenvalues : num [1:3] 0.000102 0.000213 0.004776
## ..$ cov.intern.eigenvectors : num [1:3, 1:3] 0.635 -0.755 0.164 -0.771 -0.632 ...
## ..$ reordering : int [1:55730] 30790 30807 36066 36079 34534 34579 31906 31918 35409 31861 ...
## ..$ theta.tags : chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## ..$ log.posterior.mode : num -86769
## ..$ stdev.corr.negative : num [1:3] 1.002 0.997 0.986
## ..$ stdev.corr.positive : num [1:3] 0.998 1.003 1.014
## ..$ to.theta :List of 3
## .. ..$ Log precision for the Gaussian observations:function (x)
## .. ..$ Theta1 for field :function (x)
## .. ..$ Theta2 for field :function (x)
## ..$ from.theta :List of 3
## .. ..$ Log precision for the Gaussian observations:function (x)
## .. ..$ Theta1 for field :function (x)
## .. ..$ Theta2 for field :function (x)
## ..$ mode.status : num 0
## ..$ lincomb.derived.correlation.matrix: NULL
## ..$ lincomb.derived.covariance.matrix : NULL
## ..$ opt.directions : num [1:3, 1:3] -0.0218 0.9118 0.41 0.4742 -0.3516 ...
## .. ..- attr(*, "dimnames")=List of 2
## .. .. ..$ : chr [1:3] "theta:1" "theta:2" "theta:3"
## .. .. ..$ : chr [1:3] "dir:1" "dir:2" "dir:3"
## ..$ configs :List of 17
## .. ..$ .preopt : logi TRUE
## .. ..$ lite : logi FALSE
## .. ..$ mpred : int 22070
## .. ..$ npred : int 55730
## .. ..$ mnpred : int 77800
## .. ..$ Npred : int 22070
## .. ..$ n : int 55730
## .. ..$ nz : int 148663
## .. ..$ prior_nz : int 116274
## .. ..$ ntheta : int 3
## .. ..$ nconfig : int 15
## .. ..$ offsets : num [1:77800] 0 0 0 0 0 0 0 0 0 0 ...
## .. ..$ contents :List of 3
## .. .. ..$ tag : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
## .. .. ..$ start : int [1:5] 1 22071 77801 133529 133530
## .. .. ..$ length: int [1:5] 22070 55730 55728 1 1
## .. ..$ A :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. ..@ i : int [1:55730] 2 3 4 5 6 7 8 9 10 11 ...
## .. .. .. ..@ j : int [1:55730] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. ..$ : NULL
## .. .. .. .. ..$ : NULL
## .. .. .. ..@ x : num [1:55730] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..@ factors : list()
## .. ..$ pA :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. ..@ i : int [1:88253] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. ..@ j : int [1:88253] 0 0 0 0 0 0 0 0 0 0 ...
## .. .. .. ..@ Dim : int [1:2] 22070 55730
## .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. ..$ : NULL
## .. .. .. .. ..$ : NULL
## .. .. .. ..@ x : num [1:88253] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..@ factors : list()
## .. ..$ config :List of 15
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.47 2.82 -1.37
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -3.41
## .. .. .. ..$ log.posterior.orig: num 0
## .. .. .. ..$ mean : num [1:55730] -8.495 -4.4401 -0.0466 -0.0166 -16.1942 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.495 -4.4401 -0.0466 -0.0166 -16.1942 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0482 0.0244 0.0117 0.0105 0.0615 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 118.4 134 277.2 278.1 16.6 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0482 0.0244 0.0117 0.0105 0.0128 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0192 0.1027 0.0651 0.1273 -0.1522 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.99 10.36 12.02 13.04 13.27 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.443 3.2588 -8.495 -4.4401 -0.0466 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.46 2.81 -1.36
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.49
## .. .. .. ..$ log.posterior.orig: num -1.82
## .. .. .. ..$ mean : num [1:55730] -8.4604 -4.4301 -0.0478 -0.0171 -16.1249 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.4604 -4.4301 -0.0478 -0.0171 -16.1249 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0498 0.0252 0.0121 0.0108 0.0625 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 115.1 130.2 269.3 270.2 16.3 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0498 0.0252 0.0121 0.0108 0.0132 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.019 0.104 0.066 0.129 -0.154 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.02 10.37 12.02 13.04 13.28 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4324 3.2729 -8.4604 -4.4301 -0.0478 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.48 2.84 -1.37
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.48
## .. .. .. ..$ log.posterior.orig: num -1.81
## .. .. .. ..$ mean : num [1:55730] -8.5293 -4.4497 -0.0454 -0.0161 -16.2636 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.5293 -4.4497 -0.0454 -0.0161 -16.2636 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0467 0.0236 0.0114 0.0102 0.0605 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 121.9 138 285.4 286.3 16.9 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0467 0.0236 0.0114 0.0102 0.0124 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0193 0.1016 0.0643 0.1256 -0.1502 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.95 10.34 12.03 13.05 13.26 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4535 3.2446 -8.5293 -4.4497 -0.0454 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.49 2.8 -1.36
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.48
## .. .. .. ..$ log.posterior.orig: num -1.81
## .. .. .. ..$ mean : num [1:55730] -8.3265 -4.3572 -0.0487 -0.0174 -15.9627 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.3265 -4.3572 -0.0487 -0.0174 -15.9627 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0501 0.0253 0.0122 0.0109 0.0609 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 114.6 129.4 267.6 268.5 16.7 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0501 0.0253 0.0122 0.0109 0.0133 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0176 0.1001 0.0639 0.1248 -0.1493 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.09 10.39 12.01 13.02 13.3 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4035 3.3142 -8.3265 -4.3572 -0.0487 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.45 2.84 -1.37
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.49
## .. .. .. ..$ log.posterior.orig: num -1.82
## .. .. .. ..$ mean : num [1:55730] -8.6598 -4.5208 -0.0444 -0.0158 -16.4233 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.6598 -4.5208 -0.0444 -0.0158 -16.4233 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0465 0.0235 0.0113 0.0101 0.0621 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 122.3 138.7 287.1 288 16.5 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0465 0.0235 0.0113 0.0101 0.0123 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0208 0.1053 0.0664 0.1298 -0.1551 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.88 10.32 12.04 13.07 13.23 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4819 3.2035 -8.6598 -4.5208 -0.0444 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.47 2.85 -1.23
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.47
## .. .. .. ..$ log.posterior.orig: num -1.8
## .. .. .. ..$ mean : num [1:55730] -9.3743 -5.2627 -0.0799 -0.0329 -16.302 ...
## .. .. .. ..$ improved.mean : num [1:55730] -9.3743 -5.2627 -0.0799 -0.0329 -16.302 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0523 0.0263 0.0126 0.0113 0.0622 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 119.3 138 289.9 291.9 16.4 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0523 0.0263 0.0126 0.0113 0.0138 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0175 0.1017 0.0651 0.1271 -0.1513 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.12 10.39 11.99 12.99 13.27 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.5236 3.1009 -9.3743 -5.2627 -0.0799 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.46 2.8 -1.49
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.5
## .. .. .. ..$ log.posterior.orig: num -1.83
## .. .. .. ..$ mean : num [1:55730] -7.5929 -3.65735 -0.02561 -0.00784 -16.07268 ...
## .. .. .. ..$ improved.mean : num [1:55730] -7.5929 -3.65735 -0.02561 -0.00784 -16.07268 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.04462 0.02276 0.01097 0.00985 0.06091 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 116.9 129.5 264.8 264.8 16.8 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.04462 0.02276 0.01097 0.00985 0.01193 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0207 0.1037 0.065 0.1274 -0.1531 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.86 10.33 12.07 13.1 13.27 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.3613 3.4183 -7.5929 -3.6573 -0.0256 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.46 2.83 -1.44
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.45
## .. .. .. ..$ log.posterior.orig: num -1.78
## .. .. .. ..$ mean : num [1:55730] -8.0852 -4.0295 -0.0319 -0.0104 -16.2972 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.0852 -4.0295 -0.0319 -0.0104 -16.2972 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0443 0.02252 0.01084 0.00972 0.06093 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 121.9 136.4 280.2 280.6 16.8 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0443 0.02252 0.01084 0.00972 0.01181 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0211 0.1041 0.0653 0.1278 -0.1532 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.83 10.32 12.06 13.1 13.24 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4242 3.3105 -8.0852 -4.0295 -0.0319 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.47 2.85 -1.29
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.41
## .. .. .. ..$ log.posterior.orig: num -1.74
## .. .. .. ..$ mean : num [1:55730] -9.1336 -4.9745 -0.0615 -0.0238 -16.432 ...
## .. .. .. ..$ improved.mean : num [1:55730] -9.1336 -4.9745 -0.0615 -0.0238 -16.432 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0486 0.0245 0.0118 0.0105 0.0616 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 123.3 141.5 295.3 296.8 16.6 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0486 0.0245 0.0118 0.0105 0.0128 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0192 0.103 0.0654 0.1277 -0.1522 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.98 10.35 12.01 13.03 13.24 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.519 3.1265 -9.1336 -4.9745 -0.0615 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.48 2.81 -1.44
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.46
## .. .. .. ..$ log.posterior.orig: num -1.79
## .. .. .. ..$ mean : num [1:55730] -7.9052 -3.9458 -0.0337 -0.011 -16.033 ...
## .. .. .. ..$ improved.mean : num [1:55730] -7.9052 -3.9458 -0.0337 -0.011 -16.033 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0462 0.0235 0.0113 0.0101 0.0602 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 117.4 131.1 269.1 269.5 16.9 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0462 0.0235 0.0113 0.0101 0.0123 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0192 0.1011 0.0639 0.125 -0.1499 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.95 10.35 12.04 13.07 13.28 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.3797 3.3741 -7.9052 -3.9458 -0.0337 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.49 2.83 -1.29
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.47
## .. .. .. ..$ log.posterior.orig: num -1.8
## .. .. .. ..$ mean : num [1:55730] -8.9298 -4.8695 -0.0649 -0.0252 -16.165 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.9298 -4.8695 -0.0649 -0.0252 -16.165 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0507 0.0255 0.0123 0.011 0.061 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 118.8 136 283.6 285 16.7 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0507 0.0255 0.0123 0.011 0.0134 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0174 0.1 0.0639 0.1248 -0.1489 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.1 10.4 12 13 13.3 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4733 3.1907 -8.9298 -4.8695 -0.0649 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.45 2.81 -1.44
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.5
## .. .. .. ..$ log.posterior.orig: num -1.82
## .. .. .. ..$ mean : num [1:55730] -8.0503 -4.0215 -0.0329 -0.0108 -16.218 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.0503 -4.0215 -0.0329 -0.0108 -16.218 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.046 0.0234 0.0113 0.0101 0.0621 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 117.9 131.9 271 271.4 16.5 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.046 0.0234 0.0113 0.0101 0.0123 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0209 0.1054 0.0663 0.1297 -0.1555 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.87 10.33 12.05 13.09 13.25 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4124 3.3267 -8.0503 -4.0215 -0.0329 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.45 2.84 -1.29
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.51
## .. .. .. ..$ log.posterior.orig: num -1.84
## .. .. .. ..$ mean : num [1:55730] -9.0902 -4.9604 -0.0633 -0.0246 -16.3516 ...
## .. .. .. ..$ improved.mean : num [1:55730] -9.0902 -4.9604 -0.0633 -0.0246 -16.3516 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0504 0.0254 0.0122 0.0109 0.0628 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 119.2 136.8 285.6 287.1 16.2 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0504 0.0254 0.0122 0.0109 0.0133 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.019 0.1043 0.0664 0.1296 -0.1545 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.02 10.36 12.01 13.02 13.26 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.5067 3.143 -9.0902 -4.9604 -0.0633 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.47 2.79 -1.44
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.56
## .. .. .. ..$ log.posterior.orig: num -1.89
## .. .. .. ..$ mean : num [1:55730] -7.8688 -3.9368 -0.0347 -0.0114 -15.9534 ...
## .. .. .. ..$ improved.mean : num [1:55730] -7.8688 -3.9368 -0.0347 -0.0114 -15.9534 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.048 0.0244 0.0117 0.0105 0.0614 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 113.5 126.7 260.2 260.6 16.6 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.048 0.0244 0.0117 0.0105 0.0128 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.019 0.1024 0.0649 0.1268 -0.1522 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 7.99 10.37 12.04 13.06 13.29 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.3677 3.3902 -7.8688 -3.9368 -0.0347 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. ..$ :List of 15
## .. .. .. ..$ theta : Named num [1:3] -4.48 2.82 -1.29
## .. .. .. .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## .. .. .. ..$ log.posterior : num -4.53
## .. .. .. ..$ log.posterior.orig: num -1.86
## .. .. .. ..$ mean : num [1:55730] -8.8846 -4.8542 -0.0668 -0.026 -16.0841 ...
## .. .. .. ..$ improved.mean : num [1:55730] -8.8846 -4.8542 -0.0668 -0.026 -16.0841 ...
## .. .. .. ..$ skewness : logi [1:55730] NA NA NA NA NA NA ...
## .. .. .. ..$ Q :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 0.0526 0.0265 0.0127 0.0114 0.0622 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qinv :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:148663] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:148663] 114.9 131.5 274.2 275.6 16.4 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ Qprior :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ p : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 55730 55730
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:116274] 0.0526 0.0265 0.0127 0.0114 0.0139 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ cpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
## .. .. .. ..$ gcpodens.moments : num[0 , 1:3]
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
## .. .. .. ..$ arg.str : NULL
## .. .. .. ..$ ll.info : num [1:22070, 1:3] 0.0172 0.1012 0.0649 0.1266 -0.1511 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
## .. .. .. ..$ APredictor : num [1:22070, 1:2] 8.14 10.41 12 13 13.3 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. .. .. ..$ Predictor : num [1:55730, 1:2] 27.4607 3.2071 -8.8846 -4.8542 -0.0668 ...
## .. .. .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
## .. ..$ max.log.posterior: num -86769
## ..$ nfunc : num 246
## ..$ warnings : chr(0)
## ..$ opt.trace :List of 3
## .. ..$ f : Named num [1:55] 45935871 45760685 45652871 18109227 18067439 ...
## .. .. ..- attr(*, "names")= chr [1:55] "iter1" "iter2" "iter3" "iter4" ...
## .. ..$ nfunc: Named int [1:55] 1 2 4 5 9 10 13 15 16 20 ...
## .. .. ..- attr(*, "names")= chr [1:55] "iter1" "iter2" "iter3" "iter4" ...
## .. ..$ theta: num [1:55, 1:3] 4 4 4 3.18 3.18 ...
## .. .. ..- attr(*, "dimnames")=List of 2
## .. .. .. ..$ : chr [1:55] "iter1" "iter2" "iter3" "iter4" ...
## .. .. .. ..$ : chr [1:3] "theta1" "theta2" "theta3"
## ..$ theta.mode : num [1:3] -4.47 2.82 -1.37
## ..$ linkfunctions :List of 2
## .. ..$ names: chr "identity"
## .. ..$ link : int [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ family : int [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## $ dic :List of 14
## ..$ dic : num 167398
## ..$ p.eff : num 6156
## ..$ mean.deviance : num 161242
## ..$ deviance.mean : num 155086
## ..$ dic.sat : num 28208
## ..$ mean.deviance.sat: num 22052
## ..$ deviance.mean.sat: num 15898
## ..$ family.dic : num 167398
## ..$ family.dic.sat : num 28207
## ..$ family.p.eff : num 6156
## ..$ family : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ local.dic : num [1:22070] 6.64 7.45 7.02 8.13 8.64 ...
## ..$ local.dic.sat : num [1:22070] 0.331 1.141 0.716 1.823 2.336 ...
## ..$ local.p.eff : num [1:22070] 0.15 0.111 0.173 0.206 0.158 ...
## $ mode :List of 5
## ..$ theta : Named num [1:3] -4.47 2.82 -1.37
## .. ..- attr(*, "names")= chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## ..$ x : num [1:133530] 7.99 10.36 12.02 13.04 13.27 ...
## ..$ theta.tags : chr [1:3] "Log precision for the Gaussian observations" "Theta1 for field" "Theta2 for field"
## ..$ mode.status : num 0
## ..$ log.posterior.mode: num -86769
## $ joint.hyper :'data.frame': 15 obs. of 5 variables:
## ..$ Log precision for the Gaussian observations : num [1:15] -4.47 -4.46 -4.48 -4.49 -4.45 ...
## ..$ Theta1 for field : num [1:15] 2.82 2.81 2.84 2.8 2.84 ...
## ..$ Theta2 for field : num [1:15] -1.37 -1.36 -1.37 -1.36 -1.37 ...
## ..$ Log posterior density : num [1:15] -86780 -86782 -86782 -86782 -86782 ...
## ..$ Total integration weight (log.dens included): num [1:15] 0.1733 0.0588 0.0591 0.0591 0.0587 ...
## $ nhyper : int 3
## $ version :List of 2
## ..$ inla.call: chr "GITCOMMIT [b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300]"
## ..$ R.INLA : Named chr "24.05.18-2"
## .. ..- attr(*, "names")= chr "version"
## $ Q : NULL
## $ graph : NULL
## $ ok : logi TRUE
## $ cpu.intern : chr [1:16] "Wall-clock time used on [/tmp/RtmpkGxJpZ/file3a5a903073dbc7/Model.ini]" "Preparations : 0.189 seconds" "Approx inference (stage1): 27.553 seconds" "Approx inference (stage2): 0.002 seconds" ...
## $ cpu.used : Named num [1:4] 0.713 37.751 6.831 45.295
## ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
## $ all.hyper :List of 4
## ..$ predictor:List of 1
## .. ..$ hyper:List of 1
## .. .. ..$ theta:List of 9
## .. .. .. ..$ hyperid : num 53001
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "log precision"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name: chr "prec"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 13.8
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi TRUE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "loggamma"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1e+00 1e-05
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta:function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## ..$ family :List of 1
## .. ..$ :List of 4
## .. .. ..$ hyperid: chr "INLA.Data1"
## .. .. ..$ label : chr "gaussian"
## .. .. ..$ hyper :List of 2
## .. .. .. ..$ theta1:List of 11
## .. .. .. .. ..$ hyperid : num 65001
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ name : chr "log precision"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ short.name : chr "prec"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name : chr "Precision for the Gaussian observations"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ initial : num 4
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ prior : chr "loggamma"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ param : num [1:2] 1e+00 5e-05
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ to.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ from.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ theta2:List of 11
## .. .. .. .. ..$ hyperid : num 65002
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ name : chr "log precision offset"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ short.name : chr "precoffset"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name : chr "NOT IN USE"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ initial : num 72.1
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ fixed : logi TRUE
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ prior : chr "none"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ param : num(0)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ to.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ from.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ link :List of 1
## .. .. .. ..$ hyper: list()
## ..$ linear :List of 2
## .. ..$ :List of 3
## .. .. ..$ label : chr "Intercept"
## .. .. ..$ prior.mean: num 0
## .. .. ..$ prior.prec: num 0.001
## .. ..$ :List of 3
## .. .. ..$ label : chr "SpeedLimit"
## .. .. ..$ prior.mean: num 0
## .. .. ..$ prior.prec: num 0.001
## ..$ random :List of 3
## .. ..$ : NULL
## .. ..$ : NULL
## .. ..$ :List of 3
## .. .. ..$ hyperid : chr "field"
## .. .. ..$ hyper : NULL
## .. .. ..$ group.hyper:List of 1
## .. .. .. ..$ theta:List of 9
## .. .. .. .. ..$ hyperid : num 40001
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ name : chr "logit correlation"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ short.name: chr "rho"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ initial : num 1
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ prior : chr "normal"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ param : num [1:2] 0 0.2
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ to.theta :function (x, REPLACE.ME.ngroup)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## $ .args :List of 30
## ..$ formula :Class 'formula' language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1, values = BRU_Intercept_v| __truncated__ ...
## ..$ family : chr "gaussian"
## ..$ data :List of 21
## .. ..$ BRU.response : num [1:22070] 9.66 19.31 17.7 24.14 0 ...
## .. ..$ BRU.E : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. ..$ BRU.Ntrials : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. ..$ BRU.weights : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. ..$ BRU.scale : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. ..$ BRU.offset : num [1:22070] 0 0 0 0 0 0 0 0 0 0 ...
## .. ..$ Intercept : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. ..$ Intercept.repl : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. ..$ SpeedLimit : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. ..$ SpeedLimit.group : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. ..$ field : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
## .. ..$ field.group : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
## .. ..$ field.repl : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
## .. ..$ BRU_Intercept_main_model : chr "linear"
## .. ..$ BRU_Intercept_values : num 1
## .. ..$ BRU_SpeedLimit_main_model: chr "linear"
## .. ..$ BRU_SpeedLimit_values : num 1
## .. ..$ BRU_field_main_model :List of 21
## .. .. ..$ f :List of 3
## .. .. .. ..$ model : chr "cgeneric"
## .. .. .. ..$ n : int 13932
## .. .. .. ..$ cgeneric:List of 5
## .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. ..$ n : int 13932
## .. .. .. .. ..$ debug: logi FALSE
## .. .. .. .. ..$ data :List of 5
## .. .. .. .. .. ..$ ints :List of 5
## .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. ..$ debug : int 0
## .. .. .. .. .. .. ..$ m_alpha : int 1
## .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
## .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. ..$ doubles :List of 4
## .. .. .. .. .. .. ..$ matrices_less : num [1:58136] 0.0534 0 0 0 0.0776 ...
## .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
## .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. ..$ characters:List of 4
## .. .. .. .. .. .. ..$ model : chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. ..$ shlib : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
## .. .. .. .. .. ..$ matrices :List of 1
## .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
## .. .. .. .. .. ..$ smatrices : list()
## .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
## .. .. ..$ cgeneric_type : chr "int_alpha"
## .. .. ..$ nu : num 0.5
## .. .. ..$ theta.prior.mean : num [1:2] 0 1.35
## .. .. ..$ prior.nu :List of 4
## .. .. .. ..$ loglocation: num -5e-06
## .. .. .. ..$ mean : num 1
## .. .. .. ..$ prec : num 3
## .. .. .. ..$ logscale : num 1
## .. .. ..$ theta.prior.prec : num [1:2, 1:2] 0.1 0 0 0.1
## .. .. ..$ start.nu : num 0.5
## .. .. ..$ integer.nu : logi TRUE
## .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. ..$ stationary : logi TRUE
## .. .. ..$ rspde.order : num 2
## .. .. ..$ dim : num 1
## .. .. ..$ est_nu : logi FALSE
## .. .. ..$ nu.upper.bound : num 2
## .. .. ..$ prior.nu.dist : chr "lognormal"
## .. .. ..$ debug : logi FALSE
## .. .. ..$ type.rational.approx: chr "chebfun"
## .. .. ..$ mesh :Classes 'metric_graph', 'R6' <metric_graph>
## Public:
## add_mesh_observations: function (data = NULL, group = NULL)
## add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE,
## buildC: function (alpha = 2, edge_constraint = FALSE)
## buildDirectionalConstraints: function (alpha = 1)
## C: NULL
## characteristics: list
## check_distance_consistency: function ()
## check_euclidean: function ()
## clear_observations: function ()
## clone: function (deep = FALSE)
## CoB: NULL
## compute_characteristics: function (check_euclidean = FALSE)
## compute_fem: function (petrov = FALSE)
## compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_geodist_mesh: function ()
## compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0)
## compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_PtE_edges: function ()
## compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE,
## compute_resdist_mesh: function ()
## compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE,
## coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE)
## drop_na: function (...)
## E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
## edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
## edges: metric_graph_edges
## edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL,
## fem_basis: function (PtE)
## filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## geo_dist: list
## get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE)
## get_degrees: function (which = "degree")
## get_edge_lengths: function (unit = NULL)
## get_edge_weights: function (data.frame = FALSE, tibble = TRUE)
## get_groups: function (get_cols = FALSE)
## get_initial_graph: function ()
## get_locations: function ()
## get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE)
## get_PtE: function ()
## get_vertices_incomp_dir: function ()
## initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL,
## is_tree: function ()
## Laplacian: NULL
## mesh: list
## mesh_A: function (PtE)
## mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## nE: 11104
## nV: 8781
## observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE)
## plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE,
## plot_connections: function ()
## plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE,
## plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black",
## print: function ()
## process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## prune_vertices: function (check_weights = TRUE, verbose = FALSE)
## PtV: NULL
## res_dist: NULL
## select: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL)
## summarise: function (..., .include_graph_groups = FALSE, .groups = NULL,
## summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE,
## V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
## vertices: metric_graph_vertices
## VtEfirst: function ()
## Private:
## A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE,
## add_vertices: function (PtE, tolerance = 1e-10, verbose)
## addinfo: FALSE
## clear_initial_info: function ()
## compute_degrees: function ()
## compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose)
## compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit,
## connected: TRUE
## coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string,
## create_update_vertices: function ()
## crs: crs
## data: metric_graph_data, list
## edge_weights: tbl_df, tbl, data.frame
## find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat)
## find_mesh_bc: function ()
## get_edge_weights_internal: function (data.frame = FALSE)
## group_col: .group
## initial_edges_added: NULL
## initial_graph: metric_graph, R6
## kirchhoff_weights: NULL
## length_unit: km
## line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs,
## longlat: TRUE
## merge_close_vertices: function (tolerance, fact)
## merge.all.deg2: function ()
## mesh_merge_deg2: function ()
## mesh_merge_outs: function ()
## move_V_first: function ()
## plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black",
## plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)",
## proj4string: NULL
## prune_warning: FALSE
## pruned: FALSE
## PtE_to_mesh: function (PtE)
## ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613 ...
## remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string,
## remove.first.deg2: function (res)
## set_first_weights: function (weights = rep(1, self$nE))
## set_petrov_matrices: function ()
## split_edge: function (Ei, t, tolerance = 0)
## temp_PtE: NULL
## tolerance: list
## transform: FALSE
## vertex_unit: degrees
## which_longlat: sf
## .. .. ..$ fem_mesh :List of 4
## .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ j : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. ..@ p : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
## .. .. .. .. .. ..@ p : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. ..@ i : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
## .. .. .. .. .. ..@ p : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
## .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. ..@ x : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
## .. .. .. .. .. ..@ factors : list()
## .. .. ..$ parameterization : chr "matern"
## .. .. ..$ n.spde : int 13932
## .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
## .. ..$ BRU_field_values : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
## ..$ quantiles : num [1:3] 0.025 0.5 0.975
## ..$ E : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ offset : num [1:22070] 0 0 0 0 0 0 0 0 0 0 ...
## ..$ scale : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ weights : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ Ntrials : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## ..$ verbose : logi FALSE
## ..$ control.compute :List of 18
## .. ..$ openmp.strategy : chr "default"
## .. ..$ hyperpar : logi TRUE
## .. ..$ return.marginals : logi TRUE
## .. ..$ return.marginals.predictor: logi FALSE
## .. ..$ dic : logi TRUE
## .. ..$ mlik : logi TRUE
## .. ..$ cpo : logi FALSE
## .. ..$ po : logi FALSE
## .. ..$ waic : logi TRUE
## .. ..$ residuals : logi FALSE
## .. ..$ q : logi FALSE
## .. ..$ config : logi TRUE
## .. ..$ likelihood.info : logi FALSE
## .. ..$ smtp : NULL
## .. ..$ graph : logi FALSE
## .. ..$ internal.opt : NULL
## .. ..$ save.memory : NULL
## .. ..$ control.gcpo :List of 16
## .. .. ..$ enable : logi FALSE
## .. .. ..$ num.level.sets : num -1
## .. .. ..$ size.max : num 32
## .. .. ..$ strategy : chr [1:2] "posterior" "prior"
## .. .. ..$ groups : NULL
## .. .. ..$ selection : NULL
## .. .. ..$ group.selection : NULL
## .. .. ..$ friends : NULL
## .. .. ..$ weights : NULL
## .. .. ..$ verbose : logi FALSE
## .. .. ..$ epsilon : num 0.005
## .. .. ..$ prior.diagonal : num 1e-04
## .. .. ..$ correct.hyperpar: logi TRUE
## .. .. ..$ keep : NULL
## .. .. ..$ remove : NULL
## .. .. ..$ remove.fixed : logi TRUE
## .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
## .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
## ..$ control.predictor:List of 12
## .. ..$ hyper :List of 1
## .. .. ..$ theta:List of 9
## .. .. .. ..$ hyperid : num 53001
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "log precision"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name: chr "prec"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 13.8
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi TRUE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "loggamma"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1e+00 1e-05
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta:function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. ..$ fixed : NULL
## .. ..$ prior : NULL
## .. ..$ param : NULL
## .. ..$ initial : NULL
## .. ..$ compute : logi TRUE
## .. ..$ cdf : NULL
## .. ..$ quantiles: NULL
## .. ..$ cross : NULL
## .. ..$ A :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. ..@ i : int [1:88253] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. ..@ j : int [1:88253] 0 0 0 0 0 0 0 0 0 0 ...
## .. .. .. ..@ Dim : int [1:2] 22070 55730
## .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. ..$ : NULL
## .. .. .. .. ..$ : NULL
## .. .. .. ..@ x : num [1:88253] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..@ factors : list()
## .. ..$ precision: num 3269017
## .. ..$ link : NULL
## .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
## ..$ control.family :List of 1
## .. ..$ :List of 17
## .. .. ..$ dummy : num 0
## .. .. ..$ hyper :List of 2
## .. .. .. ..$ theta1:List of 11
## .. .. .. .. ..$ hyperid : num 65001
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ name : chr "log precision"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ short.name : chr "prec"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name : chr "Precision for the Gaussian observations"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name.intern: chr "Log precision for the Gaussian observations"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ initial : num 4
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ prior : chr "loggamma"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ param : num [1:2] 1e+00 5e-05
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ to.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ from.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ theta2:List of 11
## .. .. .. .. ..$ hyperid : num 65002
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ name : chr "log precision offset"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ short.name : chr "precoffset"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name : chr "NOT IN USE"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ output.name.intern: chr "NOT IN USE"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ initial : num 72.1
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ fixed : logi TRUE
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ prior : chr "none"
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ param : num(0)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. .. ..$ to.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. .. ..$ from.theta :function (x)
## .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ initial : NULL
## .. .. ..$ prior : NULL
## .. .. ..$ param : NULL
## .. .. ..$ fixed : NULL
## .. .. ..$ link : chr "default"
## .. .. ..$ sn.shape.max : num 5
## .. .. ..$ gev.scale.xi : num 0.1
## .. .. ..$ control.bgev : NULL
## .. .. ..$ cenpoisson.I : int [1:2] -1 -1
## .. .. ..$ beta.censor.value: num 0
## .. .. ..$ variant : int 0
## .. .. ..$ control.mix : NULL
## .. .. ..$ control.pom : NULL
## .. .. ..$ control.link :List of 10
## .. .. .. ..$ model : chr "default"
## .. .. .. ..$ order : NULL
## .. .. .. ..$ variant : NULL
## .. .. .. ..$ hyper : list()
## .. .. .. ..$ quantile: NULL
## .. .. .. ..$ a : num 1
## .. .. .. ..$ initial : NULL
## .. .. .. ..$ fixed : NULL
## .. .. .. ..$ prior : NULL
## .. .. .. ..$ param : NULL
## .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
## .. .. ..$ link.simple : chr "default"
## .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
## ..$ control.inla :List of 56
## .. ..$ strategy : chr "auto"
## .. ..$ int.strategy : chr "auto"
## .. ..$ int.design : NULL
## .. ..$ interpolator : chr "auto"
## .. ..$ fast : logi TRUE
## .. ..$ linear.correction : NULL
## .. ..$ h : num 0.005
## .. ..$ dz : num 0.75
## .. ..$ diff.logdens : num 6
## .. ..$ print.joint.hyper : logi TRUE
## .. ..$ force.diagonal : logi FALSE
## .. ..$ skip.configurations : logi TRUE
## .. ..$ mode.known : logi FALSE
## .. ..$ adjust.weights : logi TRUE
## .. ..$ tolerance : num 0.005
## .. ..$ tolerance.f : NULL
## .. ..$ tolerance.g : NULL
## .. ..$ tolerance.x : NULL
## .. ..$ tolerance.step : NULL
## .. ..$ restart : int 0
## .. ..$ optimiser : chr "default"
## .. ..$ verbose : NULL
## .. ..$ reordering : chr "auto"
## .. ..$ cpo.diff : NULL
## .. ..$ npoints : num 9
## .. ..$ cutoff : num 1e-04
## .. ..$ adapt.hessian.mode : NULL
## .. ..$ adapt.hessian.max.trials : NULL
## .. ..$ adapt.hessian.scale : NULL
## .. ..$ adaptive.max : int 25
## .. ..$ huge : logi FALSE
## .. ..$ step.len : num 0
## .. ..$ stencil : int 5
## .. ..$ lincomb.derived.correlation.matrix: logi FALSE
## .. ..$ diagonal : num 0
## .. ..$ numint.maxfeval : num 1e+05
## .. ..$ numint.relerr : num 1e-05
## .. ..$ numint.abserr : num 1e-06
## .. ..$ cmin : num -Inf
## .. ..$ b.strategy : chr "keep"
## .. ..$ step.factor : num -0.1
## .. ..$ global.node.factor : num 2
## .. ..$ global.node.degree : int 2147483647
## .. ..$ stupid.search : logi TRUE
## .. ..$ stupid.search.max.iter : int 1000
## .. ..$ stupid.search.factor : num 1.05
## .. ..$ control.vb :List of 8
## .. .. ..$ enable : chr "auto"
## .. .. ..$ strategy : chr [1:2] "mean" "variance"
## .. .. ..$ verbose : logi TRUE
## .. .. ..$ iter.max : num 25
## .. .. ..$ emergency : num 25
## .. .. ..$ f.enable.limit : num [1:4] 30 25 1024 768
## .. .. ..$ hessian.update : num 2
## .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
## .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
## .. ..$ num.gradient : chr "central"
## .. ..$ num.hessian : chr "central"
## .. ..$ optimise.strategy : chr "smart"
## .. ..$ use.directions : logi TRUE
## .. ..$ constr.marginal.diagonal : num 1.49e-08
## .. ..$ improved.simplified.laplace : logi FALSE
## .. ..$ parallel.linesearch : logi FALSE
## .. ..$ compute.initial.values : logi TRUE
## .. ..$ hessian.correct.skewness.only : logi TRUE
## .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
## ..$ control.fixed :List of 10
## .. ..$ cdf : NULL
## .. ..$ quantiles : NULL
## .. ..$ expand.factor.strategy: chr "inla"
## .. ..$ mean : num 0
## .. ..$ mean.intercept : num 0
## .. ..$ prec : num 0.001
## .. ..$ prec.intercept : num 0
## .. ..$ compute : logi TRUE
## .. ..$ correlation.matrix : logi FALSE
## .. ..$ remove.names : NULL
## .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
## ..$ control.mode :List of 5
## .. ..$ result : NULL
## .. ..$ theta : NULL
## .. ..$ x : NULL
## .. ..$ restart: logi FALSE
## .. ..$ fixed : logi FALSE
## .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
## ..$ control.expert :List of 6
## .. ..$ cpo.manual : logi FALSE
## .. ..$ cpo.idx : num -1
## .. ..$ disable.gaussian.check: logi FALSE
## .. ..$ jp : NULL
## .. ..$ dot.product.gain : logi FALSE
## .. ..$ globalconstr :List of 2
## .. .. ..$ A: NULL
## .. .. ..$ e: NULL
## .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
## ..$ control.lincomb :List of 1
## .. ..$ verbose: logi FALSE
## .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
## ..$ control.update :List of 1
## .. ..$ result: NULL
## .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
## ..$ control.lp.scale :List of 1
## .. ..$ hyper:List of 100
## .. .. ..$ theta1 :List of 11
## .. .. .. ..$ hyperid : num 103001
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta1"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b1"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[1] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta2 :List of 11
## .. .. .. ..$ hyperid : num 103002
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta2"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b2"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[2] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta3 :List of 11
## .. .. .. ..$ hyperid : num 103003
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta3"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b3"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[3] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta4 :List of 11
## .. .. .. ..$ hyperid : num 103004
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta4"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b4"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[4] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta5 :List of 11
## .. .. .. ..$ hyperid : num 103005
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta5"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b5"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[5] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta6 :List of 11
## .. .. .. ..$ hyperid : num 103006
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta6"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b6"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[6] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta7 :List of 11
## .. .. .. ..$ hyperid : num 103007
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta7"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b7"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[7] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta8 :List of 11
## .. .. .. ..$ hyperid : num 103008
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta8"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b8"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[8] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta9 :List of 11
## .. .. .. ..$ hyperid : num 103009
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta9"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b9"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[9] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta10 :List of 11
## .. .. .. ..$ hyperid : num 103010
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta10"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b10"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[10] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta11 :List of 11
## .. .. .. ..$ hyperid : num 103011
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta11"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b11"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[11] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta12 :List of 11
## .. .. .. ..$ hyperid : num 103012
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta12"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b12"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[12] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta13 :List of 11
## .. .. .. ..$ hyperid : num 103013
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta13"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b13"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[13] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta14 :List of 11
## .. .. .. ..$ hyperid : num 103014
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta14"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b14"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[14] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta15 :List of 11
## .. .. .. ..$ hyperid : num 103015
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta15"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b15"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[15] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta16 :List of 11
## .. .. .. ..$ hyperid : num 103016
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta16"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b16"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[16] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta17 :List of 11
## .. .. .. ..$ hyperid : num 103017
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta17"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b17"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[17] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta18 :List of 11
## .. .. .. ..$ hyperid : num 103018
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta18"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b18"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[18] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta19 :List of 11
## .. .. .. ..$ hyperid : num 103019
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta19"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b19"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[19] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta20 :List of 11
## .. .. .. ..$ hyperid : num 103020
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta20"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b20"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[20] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta21 :List of 11
## .. .. .. ..$ hyperid : num 103021
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta21"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b21"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[21] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta22 :List of 11
## .. .. .. ..$ hyperid : num 103022
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta22"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b22"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[22] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta23 :List of 11
## .. .. .. ..$ hyperid : num 103023
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta23"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b23"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[23] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta24 :List of 11
## .. .. .. ..$ hyperid : num 103024
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta24"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b24"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[24] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta25 :List of 11
## .. .. .. ..$ hyperid : num 103025
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta25"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b25"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[25] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta26 :List of 11
## .. .. .. ..$ hyperid : num 103026
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta26"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b26"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[26] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta27 :List of 11
## .. .. .. ..$ hyperid : num 103027
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta27"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b27"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[27] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta28 :List of 11
## .. .. .. ..$ hyperid : num 103028
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta28"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b28"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[28] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta29 :List of 11
## .. .. .. ..$ hyperid : num 103029
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta29"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b29"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[29] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta30 :List of 11
## .. .. .. ..$ hyperid : num 103030
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta30"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b30"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[30] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta31 :List of 11
## .. .. .. ..$ hyperid : num 103031
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta31"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b31"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[31] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta32 :List of 11
## .. .. .. ..$ hyperid : num 103032
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta32"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b32"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[32] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta33 :List of 11
## .. .. .. ..$ hyperid : num 103033
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta33"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b33"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[33] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta34 :List of 11
## .. .. .. ..$ hyperid : num 103034
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta34"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b34"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[34] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta35 :List of 11
## .. .. .. ..$ hyperid : num 103035
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta35"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b35"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[35] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta36 :List of 11
## .. .. .. ..$ hyperid : num 103036
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta36"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b36"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[36] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta37 :List of 11
## .. .. .. ..$ hyperid : num 103037
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta37"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b37"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[37] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta38 :List of 11
## .. .. .. ..$ hyperid : num 103038
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta38"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b38"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[38] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta39 :List of 11
## .. .. .. ..$ hyperid : num 103039
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta39"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b39"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[39] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta40 :List of 11
## .. .. .. ..$ hyperid : num 103040
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta40"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b40"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[40] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta41 :List of 11
## .. .. .. ..$ hyperid : num 103041
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta41"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b41"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[41] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta42 :List of 11
## .. .. .. ..$ hyperid : num 103042
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta42"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b42"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[42] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta43 :List of 11
## .. .. .. ..$ hyperid : num 103043
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta43"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b43"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[43] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta44 :List of 11
## .. .. .. ..$ hyperid : num 103044
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta44"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b44"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[44] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta45 :List of 11
## .. .. .. ..$ hyperid : num 103045
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta45"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b45"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[45] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta46 :List of 11
## .. .. .. ..$ hyperid : num 103046
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta46"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b46"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[46] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta47 :List of 11
## .. .. .. ..$ hyperid : num 103047
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta47"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b47"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[47] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta48 :List of 11
## .. .. .. ..$ hyperid : num 103048
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta48"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b48"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[48] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta49 :List of 11
## .. .. .. ..$ hyperid : num 103049
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta49"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b49"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[49] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta50 :List of 11
## .. .. .. ..$ hyperid : num 103050
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta50"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b50"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[50] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta51 :List of 11
## .. .. .. ..$ hyperid : num 103051
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta51"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b51"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[51] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta52 :List of 11
## .. .. .. ..$ hyperid : num 103052
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta52"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b52"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[52] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta53 :List of 11
## .. .. .. ..$ hyperid : num 103053
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta53"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b53"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[53] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta54 :List of 11
## .. .. .. ..$ hyperid : num 103054
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta54"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b54"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[54] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta55 :List of 11
## .. .. .. ..$ hyperid : num 103055
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta55"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b55"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[55] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta56 :List of 11
## .. .. .. ..$ hyperid : num 103056
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta56"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b56"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[56] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta57 :List of 11
## .. .. .. ..$ hyperid : num 103057
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta57"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b57"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[57] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta58 :List of 11
## .. .. .. ..$ hyperid : num 103058
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta58"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b58"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[58] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta59 :List of 11
## .. .. .. ..$ hyperid : num 103059
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta59"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b59"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[59] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta60 :List of 11
## .. .. .. ..$ hyperid : num 103060
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta60"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b60"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[60] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta61 :List of 11
## .. .. .. ..$ hyperid : num 103061
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta61"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b61"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[61] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta62 :List of 11
## .. .. .. ..$ hyperid : num 103062
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta62"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b62"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[62] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta63 :List of 11
## .. .. .. ..$ hyperid : num 103063
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta63"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b63"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[63] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta64 :List of 11
## .. .. .. ..$ hyperid : num 103064
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta64"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b64"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[64] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta65 :List of 11
## .. .. .. ..$ hyperid : num 103065
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta65"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b65"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[65] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta66 :List of 11
## .. .. .. ..$ hyperid : num 103066
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta66"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b66"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[66] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta67 :List of 11
## .. .. .. ..$ hyperid : num 103067
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta67"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b67"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[67] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta68 :List of 11
## .. .. .. ..$ hyperid : num 103068
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta68"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b68"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[68] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta69 :List of 11
## .. .. .. ..$ hyperid : num 103069
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta69"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b69"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[69] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta70 :List of 11
## .. .. .. ..$ hyperid : num 103070
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta70"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b70"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[70] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta71 :List of 11
## .. .. .. ..$ hyperid : num 103071
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta71"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b71"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[71] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta72 :List of 11
## .. .. .. ..$ hyperid : num 103072
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta72"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b72"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[72] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta73 :List of 11
## .. .. .. ..$ hyperid : num 103073
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta73"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b73"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[73] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta74 :List of 11
## .. .. .. ..$ hyperid : num 103074
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta74"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b74"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[74] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta75 :List of 11
## .. .. .. ..$ hyperid : num 103075
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta75"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b75"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[75] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta76 :List of 11
## .. .. .. ..$ hyperid : num 103076
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta76"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b76"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[76] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta77 :List of 11
## .. .. .. ..$ hyperid : num 103077
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta77"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b77"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[77] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta78 :List of 11
## .. .. .. ..$ hyperid : num 103078
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta78"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b78"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[78] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta79 :List of 11
## .. .. .. ..$ hyperid : num 103079
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta79"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b79"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[79] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta80 :List of 11
## .. .. .. ..$ hyperid : num 103080
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta80"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b80"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[80] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta81 :List of 11
## .. .. .. ..$ hyperid : num 103081
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta81"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b81"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[81] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta82 :List of 11
## .. .. .. ..$ hyperid : num 103082
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta82"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b82"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[82] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta83 :List of 11
## .. .. .. ..$ hyperid : num 103083
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta83"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b83"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[83] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta84 :List of 11
## .. .. .. ..$ hyperid : num 103084
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta84"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b84"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[84] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta85 :List of 11
## .. .. .. ..$ hyperid : num 103085
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta85"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b85"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[85] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta86 :List of 11
## .. .. .. ..$ hyperid : num 103086
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta86"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b86"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[86] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta87 :List of 11
## .. .. .. ..$ hyperid : num 103087
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta87"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b87"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[87] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta88 :List of 11
## .. .. .. ..$ hyperid : num 103088
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta88"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b88"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[88] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta89 :List of 11
## .. .. .. ..$ hyperid : num 103089
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta89"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b89"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[89] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta90 :List of 11
## .. .. .. ..$ hyperid : num 103090
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta90"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b90"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[90] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta91 :List of 11
## .. .. .. ..$ hyperid : num 103091
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta91"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b91"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[91] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta92 :List of 11
## .. .. .. ..$ hyperid : num 103092
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta92"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b92"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[92] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta93 :List of 11
## .. .. .. ..$ hyperid : num 103093
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta93"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b93"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[93] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta94 :List of 11
## .. .. .. ..$ hyperid : num 103094
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta94"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b94"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[94] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta95 :List of 11
## .. .. .. ..$ hyperid : num 103095
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta95"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b95"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[95] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta96 :List of 11
## .. .. .. ..$ hyperid : num 103096
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta96"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b96"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[96] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta97 :List of 11
## .. .. .. ..$ hyperid : num 103097
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta97"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b97"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[97] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta98 :List of 11
## .. .. .. ..$ hyperid : num 103098
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta98"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b98"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[98] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. ..$ theta99 :List of 11
## .. .. .. ..$ hyperid : num 103099
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ name : chr "beta99"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ short.name : chr "b99"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name : chr "beta[99] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ initial : num 1
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ fixed : logi FALSE
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ prior : chr "normal"
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ param : num [1:2] 1 10
## .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
## .. .. .. ..$ to.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. ..$ from.theta :function (x)
## .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
## .. .. .. [list output truncated]
## .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
## ..$ control.pardiso :List of 4
## .. ..$ verbose : logi FALSE
## .. ..$ debug : logi FALSE
## .. ..$ parallel.reordering: logi TRUE
## .. ..$ nrhs : num -1
## .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
## ..$ only.hyperparam : logi FALSE
## ..$ inla.call : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
## ..$ num.threads : chr "24:1"
## ..$ keep : logi FALSE
## ..$ silent : logi TRUE
## ..$ inla.mode : chr "compact"
## ..$ safe : logi TRUE
## ..$ debug : logi FALSE
## ..$ .parent.frame :<environment: R_GlobalEnv>
## $ call : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " " data = data, quantiles = quantiles, E = E, offset = offset, " " scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " " lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
## $ model.matrix :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
## .. ..@ i : int(0)
## .. ..@ p : int 0
## .. ..@ Dim : int [1:2] 55730 0
## .. ..@ Dimnames :List of 2
## .. .. ..$ : chr [1:55730] "1" "2" "3" "4" ...
## .. .. ..$ : NULL
## .. ..@ x : num(0)
## .. ..@ factors : list()
## .. ..@ assign : int(0)
## .. ..@ contrasts: Named list()
## $ bru_iinla :List of 5
## ..$ log :Class 'bru_log' hidden list of 2
## .. ..$ log : chr [1:7] "2024-05-29 13:23:23.605547: iinla: Evaluate component inputs" "2024-05-29 13:23:23.716531: iinla: Evaluate component linearisations" "2024-05-29 13:23:32.202001: iinla: Evaluate component simplifications" "2024-05-29 13:23:40.404984: iinla: Evaluate predictor linearisation" ...
## .. ..$ bookmarks: Named int 0
## .. .. ..- attr(*, "names")= chr "iinla"
## ..$ states :List of 1
## .. ..$ :List of 3
## .. .. ..$ Intercept : num 0
## .. .. ..$ SpeedLimit: num 0
## .. .. ..$ field : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
## ..$ inla_stack:List of 3
## .. ..$ A :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. ..@ i : int [1:88253] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. ..@ p : int [1:55731] 0 22070 44140 44140 44140 44140 44140 44149 44153 44153 ...
## .. .. .. ..@ Dim : int [1:2] 22070 55730
## .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. ..$ : NULL
## .. .. .. .. ..$ : NULL
## .. .. .. ..@ x : num [1:88253] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..@ factors : list()
## .. ..$ data :List of 5
## .. .. ..$ data :'data.frame': 22070 obs. of 6 variables:
## .. .. .. ..$ BRU.response: num [1:22070] 9.66 19.31 17.7 24.14 0 ...
## .. .. .. ..$ BRU.E : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..$ BRU.Ntrials : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..$ BRU.weights : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..$ BRU.scale : num [1:22070] 1 1 1 1 1 1 1 1 1 1 ...
## .. .. .. ..$ BRU.offset : num [1:22070] 0 0 0 0 0 0 0 0 0 0 ...
## .. .. ..$ nrow : int 22070
## .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
## .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
## .. .. ..$ names:List of 6
## .. .. .. ..$ BRU.response: chr "BRU.response"
## .. .. .. ..$ BRU.E : chr "BRU.E"
## .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
## .. .. .. ..$ BRU.weights : chr "BRU.weights"
## .. .. .. ..$ BRU.scale : chr "BRU.scale"
## .. .. .. ..$ BRU.offset : chr "BRU.offset"
## .. .. ..$ index:List of 1
## .. .. .. ..$ : num [1:22070] 1 2 3 4 5 6 7 8 9 10 ...
## .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
## .. ..$ effects:List of 5
## .. .. ..$ data :'data.frame': 55730 obs. of 9 variables:
## .. .. .. ..$ Intercept : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ Intercept.repl : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ SpeedLimit : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ SpeedLimit.group: int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
## .. .. .. ..$ field : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
## .. .. .. ..$ field.group : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
## .. .. .. ..$ field.repl : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
## .. .. ..$ nrow : int 55730
## .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
## .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
## .. .. ..$ names:List of 9
## .. .. .. ..$ Intercept : chr "Intercept"
## .. .. .. ..$ Intercept.group : chr "Intercept.group"
## .. .. .. ..$ Intercept.repl : chr "Intercept.repl"
## .. .. .. ..$ SpeedLimit : chr "SpeedLimit"
## .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
## .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
## .. .. .. ..$ field : chr "field"
## .. .. .. ..$ field.group : chr "field.group"
## .. .. .. ..$ field.repl : chr "field.repl"
## .. .. ..$ index:List of 3
## .. .. .. ..$ : int 1
## .. .. .. ..$ : int 2
## .. .. .. ..$ : int [1:55728] 3 4 5 6 7 8 9 10 11 12 ...
## .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
## .. ..- attr(*, "class")= chr "inla.data.stack"
## ..$ track :'data.frame': 111464 obs. of 6 variables:
## .. ..$ effect : chr [1:111464] "Intercept" "SpeedLimit" "field" "field" ...
## .. ..$ index : num [1:111464] 1 1 1 2 3 4 5 6 7 8 ...
## .. ..$ iteration : num [1:111464] 0 0 0 0 0 0 0 0 0 0 ...
## .. ..$ mode : num [1:111464] NA NA NA NA NA NA NA NA NA NA ...
## .. ..$ sd : num [1:111464] NA NA NA NA NA NA NA NA NA NA ...
## .. ..$ new_linearisation: num [1:111464] 0 0 0 0 0 0 0 0 0 0 ...
## ..$ timings :'data.frame': 2 obs. of 5 variables:
## .. ..$ Task : chr [1:2] "Preprocess" "Run inla()"
## .. ..$ Iteration: num [1:2] 1 1
## .. ..$ Time : 'difftime' num [1:2] 94.299 305.725
## .. .. ..- attr(*, "units")= chr "secs"
## .. ..$ System : 'difftime' num [1:2] 0.968 0.312
## .. .. ..- attr(*, "units")= chr "secs"
## .. ..$ Elapsed : 'difftime' num [1:2] 94.556 45.433
## .. .. ..- attr(*, "units")= chr "secs"
## $ bru_timings :'data.frame': 3 obs. of 5 variables:
## ..$ Task : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
## ..$ Iteration: num [1:3] 0 1 1
## ..$ Time : 'difftime' num [1:3] 0.11699999999999 94.299 305.725
## .. ..- attr(*, "units")= chr "secs"
## ..$ System : 'difftime' num [1:3] 0 0.968 0.312
## .. ..- attr(*, "units")= chr "secs"
## ..$ Elapsed : 'difftime' num [1:3] 0.11699999999999 94.556 45.433
## .. ..- attr(*, "units")= chr "secs"
## $ bru_info :List of 6
## ..$ method : chr "bru"
## ..$ model :List of 2
## .. ..$ effects:List of 3
## .. .. ..$ Intercept :List of 12
## .. .. .. ..$ label : chr "Intercept"
## .. .. .. ..$ inla.formula:Class 'formula' language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1, values = BRU_Intercept_values)
## .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
## .. .. .. ..$ main :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : num 1
## .. .. .. .. .. ..$ label : chr "Intercept"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper : list()
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "linear"
## .. .. .. .. ..$ type : chr "linear"
## .. .. .. .. ..$ n : int 1
## .. .. .. .. ..$ values : num 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ group :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : int 1
## .. .. .. .. .. ..$ label : chr "Intercept.group"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "exchangeable"
## .. .. .. .. ..$ type : chr "exchangeable"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ values : int 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ replicate :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : int 1
## .. .. .. .. .. ..$ label : chr "Intercept.repl"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "iid"
## .. .. .. .. ..$ type : chr "iid"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ values : int 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ weights : NULL
## .. .. .. ..$ copy : NULL
## .. .. .. ..$ marginal : NULL
## .. .. .. ..$ env :<environment: R_GlobalEnv>
## .. .. .. ..$ env_extra :<environment: 0x5b392e1f31d8>
## .. .. .. ..$ fcall : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1, values = BRU_Intercept_values)
## .. .. .. ..$ mapper :List of 6
## .. .. .. .. ..$ mappers :List of 2
## .. .. .. .. .. ..$ mapper:List of 9
## .. .. .. .. .. .. ..$ mappers :List of 3
## .. .. .. .. .. .. .. ..$ main : list()
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ group :List of 1
## .. .. .. .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ replicate:List of 1
## .. .. .. .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. .. .. ..$ n_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : int 1
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: num 1
## .. .. .. .. .. .. ..$ n_inla_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : int 1
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: num 1
## .. .. .. .. .. .. ..$ values_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : num 1
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int 1
## .. .. .. .. .. .. ..$ values_inla_multi:List of 3
## .. .. .. .. .. .. .. ..$ main : num 1
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int 1
## .. .. .. .. .. .. ..$ is_linear_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : logi TRUE
## .. .. .. .. .. .. .. ..$ group : logi TRUE
## .. .. .. .. .. .. .. ..$ replicate: logi TRUE
## .. .. .. .. .. .. ..$ n : num 1
## .. .. .. .. .. .. ..$ n_inla : num 1
## .. .. .. .. .. .. ..$ is_linear : logi TRUE
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
## .. .. .. .. .. ..$ scale : list()
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
## .. .. .. .. ..$ : Named logi [1:2] TRUE TRUE
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ is_linear: logi TRUE
## .. .. .. .. ..$ n_multi : Named int [1:2] 1 NA
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ names : chr [1:2] "mapper" "scale"
## .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
## .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
## .. .. ..$ SpeedLimit:List of 12
## .. .. .. ..$ label : chr "SpeedLimit"
## .. .. .. ..$ inla.formula:Class 'formula' language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1, values = BRU_SpeedLimit_values)
## .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
## .. .. .. ..$ main :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : symbol SpeedLimit
## .. .. .. .. .. ..$ label : chr "SpeedLimit"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper : list()
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "linear"
## .. .. .. .. ..$ type : chr "linear"
## .. .. .. .. ..$ n : int 1
## .. .. .. .. ..$ values : num 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ group :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : int 1
## .. .. .. .. .. ..$ label : chr "SpeedLimit.group"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "exchangeable"
## .. .. .. .. ..$ type : chr "exchangeable"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ values : int 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ replicate :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : int 1
## .. .. .. .. .. ..$ label : chr "SpeedLimit.repl"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "iid"
## .. .. .. .. ..$ type : chr "iid"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ values : int 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ weights : NULL
## .. .. .. ..$ copy : NULL
## .. .. .. ..$ marginal : NULL
## .. .. .. ..$ env :<environment: R_GlobalEnv>
## .. .. .. ..$ env_extra :<environment: 0x5b392e1ab890>
## .. .. .. ..$ fcall : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1, values = BRU_SpeedLimit_values)
## .. .. .. ..$ mapper :List of 6
## .. .. .. .. ..$ mappers :List of 2
## .. .. .. .. .. ..$ mapper:List of 9
## .. .. .. .. .. .. ..$ mappers :List of 3
## .. .. .. .. .. .. .. ..$ main : list()
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ group :List of 1
## .. .. .. .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ replicate:List of 1
## .. .. .. .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. .. .. ..$ n_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : int 1
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: num 1
## .. .. .. .. .. .. ..$ n_inla_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : int 1
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: num 1
## .. .. .. .. .. .. ..$ values_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : num 1
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int 1
## .. .. .. .. .. .. ..$ values_inla_multi:List of 3
## .. .. .. .. .. .. .. ..$ main : num 1
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int 1
## .. .. .. .. .. .. ..$ is_linear_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : logi TRUE
## .. .. .. .. .. .. .. ..$ group : logi TRUE
## .. .. .. .. .. .. .. ..$ replicate: logi TRUE
## .. .. .. .. .. .. ..$ n : num 1
## .. .. .. .. .. .. ..$ n_inla : num 1
## .. .. .. .. .. .. ..$ is_linear : logi TRUE
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
## .. .. .. .. .. ..$ scale : list()
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
## .. .. .. .. ..$ : Named logi [1:2] TRUE TRUE
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ is_linear: logi TRUE
## .. .. .. .. ..$ n_multi : Named int [1:2] 1 NA
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ names : chr [1:2] "mapper" "scale"
## .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
## .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
## .. .. ..$ field :List of 12
## .. .. .. ..$ label : chr "field"
## .. .. .. ..$ inla.formula:Class 'formula' language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1, nrep = 4L, values = BRU_field_values)
## .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
## .. .. .. ..$ main :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : symbol loc
## .. .. .. .. .. ..$ label : chr "field"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ model:List of 21
## .. .. .. .. .. .. ..$ f :List of 3
## .. .. .. .. .. .. .. ..$ model : chr "cgeneric"
## .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. ..$ cgeneric:List of 5
## .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
## .. .. .. .. .. .. .. .. ..$ data :List of 5
## .. .. .. .. .. .. .. .. .. ..$ ints :List of 5
## .. .. .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. .. .. ..$ debug : int 0
## .. .. .. .. .. .. .. .. .. .. ..$ m_alpha : int 1
## .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
## .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. .. ..$ doubles :List of 4
## .. .. .. .. .. .. .. .. .. .. ..$ matrices_less : num [1:58136] 0.0534 0 0 0 0.0776 ...
## .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
## .. .. .. .. .. .. .. .. .. .. ..$ model : chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. .. .. .. ..$ shlib : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
## .. .. .. .. .. .. .. .. .. ..$ matrices :List of 1
## .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
## .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
## .. .. .. .. .. .. ..$ cgeneric_type : chr "int_alpha"
## .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. .. ..$ theta.prior.mean : num [1:2] 0 1.35
## .. .. .. .. .. .. ..$ prior.nu :List of 4
## .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
## .. .. .. .. .. .. .. ..$ mean : num 1
## .. .. .. .. .. .. .. ..$ prec : num 3
## .. .. .. .. .. .. .. ..$ logscale : num 1
## .. .. .. .. .. .. ..$ theta.prior.prec : num [1:2, 1:2] 0.1 0 0 0.1
## .. .. .. .. .. .. ..$ start.nu : num 0.5
## .. .. .. .. .. .. ..$ integer.nu : logi TRUE
## .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. ..$ stationary : logi TRUE
## .. .. .. .. .. .. ..$ rspde.order : num 2
## .. .. .. .. .. .. ..$ dim : num 1
## .. .. .. .. .. .. ..$ est_nu : logi FALSE
## .. .. .. .. .. .. ..$ nu.upper.bound : num 2
## .. .. .. .. .. .. ..$ prior.nu.dist : chr "lognormal"
## .. .. .. .. .. .. ..$ debug : logi FALSE
## .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
## .. .. .. .. .. .. ..$ mesh :Classes 'metric_graph', 'R6' <metric_graph>
## Public:
## add_mesh_observations: function (data = NULL, group = NULL)
## add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE,
## buildC: function (alpha = 2, edge_constraint = FALSE)
## buildDirectionalConstraints: function (alpha = 1)
## C: NULL
## characteristics: list
## check_distance_consistency: function ()
## check_euclidean: function ()
## clear_observations: function ()
## clone: function (deep = FALSE)
## CoB: NULL
## compute_characteristics: function (check_euclidean = FALSE)
## compute_fem: function (petrov = FALSE)
## compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_geodist_mesh: function ()
## compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0)
## compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_PtE_edges: function ()
## compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE,
## compute_resdist_mesh: function ()
## compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE,
## coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE)
## drop_na: function (...)
## E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
## edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
## edges: metric_graph_edges
## edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL,
## fem_basis: function (PtE)
## filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## geo_dist: list
## get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE)
## get_degrees: function (which = "degree")
## get_edge_lengths: function (unit = NULL)
## get_edge_weights: function (data.frame = FALSE, tibble = TRUE)
## get_groups: function (get_cols = FALSE)
## get_initial_graph: function ()
## get_locations: function ()
## get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE)
## get_PtE: function ()
## get_vertices_incomp_dir: function ()
## initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL,
## is_tree: function ()
## Laplacian: NULL
## mesh: list
## mesh_A: function (PtE)
## mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## nE: 11104
## nV: 8781
## observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE)
## plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE,
## plot_connections: function ()
## plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE,
## plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black",
## print: function ()
## process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## prune_vertices: function (check_weights = TRUE, verbose = FALSE)
## PtV: NULL
## res_dist: NULL
## select: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL)
## summarise: function (..., .include_graph_groups = FALSE, .groups = NULL,
## summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE,
## V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
## vertices: metric_graph_vertices
## VtEfirst: function ()
## Private:
## A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE,
## add_vertices: function (PtE, tolerance = 1e-10, verbose)
## addinfo: FALSE
## clear_initial_info: function ()
## compute_degrees: function ()
## compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose)
## compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit,
## connected: TRUE
## coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string,
## create_update_vertices: function ()
## crs: crs
## data: metric_graph_data, list
## edge_weights: tbl_df, tbl, data.frame
## find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat)
## find_mesh_bc: function ()
## get_edge_weights_internal: function (data.frame = FALSE)
## group_col: .group
## initial_edges_added: NULL
## initial_graph: metric_graph, R6
## kirchhoff_weights: NULL
## length_unit: km
## line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs,
## longlat: TRUE
## merge_close_vertices: function (tolerance, fact)
## merge.all.deg2: function ()
## mesh_merge_deg2: function ()
## mesh_merge_outs: function ()
## move_V_first: function ()
## plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black",
## plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)",
## proj4string: NULL
## prune_warning: FALSE
## pruned: FALSE
## PtE_to_mesh: function (PtE)
## ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613 ...
## remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string,
## remove.first.deg2: function (res)
## set_first_weights: function (weights = rep(1, self$nE))
## set_petrov_matrices: function ()
## split_edge: function (Ei, t, tolerance = 0)
## temp_PtE: NULL
## tolerance: list
## transform: FALSE
## vertex_unit: degrees
## which_longlat: sf
## .. .. .. .. .. .. ..$ fem_mesh :List of 4
## .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. ..@ i : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. .. ..@ j : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..@ x : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
## .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. ..@ i : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
## .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..@ x : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
## .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. ..@ i : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
## .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
## .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..@ x : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
## .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. ..@ i : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
## .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
## .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..@ x : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
## .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. ..$ n.spde : int 13932
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
## .. .. .. .. ..$ model :List of 21
## .. .. .. .. .. ..$ f :List of 3
## .. .. .. .. .. .. ..$ model : chr "cgeneric"
## .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. ..$ cgeneric:List of 5
## .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. ..$ debug: logi FALSE
## .. .. .. .. .. .. .. ..$ data :List of 5
## .. .. .. .. .. .. .. .. ..$ ints :List of 5
## .. .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. .. ..$ debug : int 0
## .. .. .. .. .. .. .. .. .. ..$ m_alpha : int 1
## .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
## .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. ..$ doubles :List of 4
## .. .. .. .. .. .. .. .. .. ..$ matrices_less : num [1:58136] 0.0534 0 0 0 0.0776 ...
## .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. .. .. .. ..$ characters:List of 4
## .. .. .. .. .. .. .. .. .. ..$ model : chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. .. .. ..$ shlib : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
## .. .. .. .. .. .. .. .. ..$ matrices :List of 1
## .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
## .. .. .. .. .. .. .. .. ..$ smatrices : list()
## .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
## .. .. .. .. .. ..$ cgeneric_type : chr "int_alpha"
## .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. ..$ theta.prior.mean : num [1:2] 0 1.35
## .. .. .. .. .. ..$ prior.nu :List of 4
## .. .. .. .. .. .. ..$ loglocation: num -5e-06
## .. .. .. .. .. .. ..$ mean : num 1
## .. .. .. .. .. .. ..$ prec : num 3
## .. .. .. .. .. .. ..$ logscale : num 1
## .. .. .. .. .. ..$ theta.prior.prec : num [1:2, 1:2] 0.1 0 0 0.1
## .. .. .. .. .. ..$ start.nu : num 0.5
## .. .. .. .. .. ..$ integer.nu : logi TRUE
## .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. ..$ stationary : logi TRUE
## .. .. .. .. .. ..$ rspde.order : num 2
## .. .. .. .. .. ..$ dim : num 1
## .. .. .. .. .. ..$ est_nu : logi FALSE
## .. .. .. .. .. ..$ nu.upper.bound : num 2
## .. .. .. .. .. ..$ prior.nu.dist : chr "lognormal"
## .. .. .. .. .. ..$ debug : logi FALSE
## .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
## .. .. .. .. .. ..$ mesh :Classes 'metric_graph', 'R6' <metric_graph>
## Public:
## add_mesh_observations: function (data = NULL, group = NULL)
## add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE,
## buildC: function (alpha = 2, edge_constraint = FALSE)
## buildDirectionalConstraints: function (alpha = 1)
## C: NULL
## characteristics: list
## check_distance_consistency: function ()
## check_euclidean: function ()
## clear_observations: function ()
## clone: function (deep = FALSE)
## CoB: NULL
## compute_characteristics: function (check_euclidean = FALSE)
## compute_fem: function (petrov = FALSE)
## compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_geodist_mesh: function ()
## compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0)
## compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_PtE_edges: function ()
## compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE,
## compute_resdist_mesh: function ()
## compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE,
## coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE)
## drop_na: function (...)
## E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
## edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
## edges: metric_graph_edges
## edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL,
## fem_basis: function (PtE)
## filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## geo_dist: list
## get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE)
## get_degrees: function (which = "degree")
## get_edge_lengths: function (unit = NULL)
## get_edge_weights: function (data.frame = FALSE, tibble = TRUE)
## get_groups: function (get_cols = FALSE)
## get_initial_graph: function ()
## get_locations: function ()
## get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE)
## get_PtE: function ()
## get_vertices_incomp_dir: function ()
## initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL,
## is_tree: function ()
## Laplacian: NULL
## mesh: list
## mesh_A: function (PtE)
## mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## nE: 11104
## nV: 8781
## observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE)
## plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE,
## plot_connections: function ()
## plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE,
## plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black",
## print: function ()
## process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## prune_vertices: function (check_weights = TRUE, verbose = FALSE)
## PtV: NULL
## res_dist: NULL
## select: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL)
## summarise: function (..., .include_graph_groups = FALSE, .groups = NULL,
## summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE,
## V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
## vertices: metric_graph_vertices
## VtEfirst: function ()
## Private:
## A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE,
## add_vertices: function (PtE, tolerance = 1e-10, verbose)
## addinfo: FALSE
## clear_initial_info: function ()
## compute_degrees: function ()
## compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose)
## compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit,
## connected: TRUE
## coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string,
## create_update_vertices: function ()
## crs: crs
## data: metric_graph_data, list
## edge_weights: tbl_df, tbl, data.frame
## find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat)
## find_mesh_bc: function ()
## get_edge_weights_internal: function (data.frame = FALSE)
## group_col: .group
## initial_edges_added: NULL
## initial_graph: metric_graph, R6
## kirchhoff_weights: NULL
## length_unit: km
## line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs,
## longlat: TRUE
## merge_close_vertices: function (tolerance, fact)
## merge.all.deg2: function ()
## mesh_merge_deg2: function ()
## mesh_merge_outs: function ()
## move_V_first: function ()
## plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black",
## plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)",
## proj4string: NULL
## prune_warning: FALSE
## pruned: FALSE
## PtE_to_mesh: function (PtE)
## ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613 ...
## remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string,
## remove.first.deg2: function (res)
## set_first_weights: function (weights = rep(1, self$nE))
## set_petrov_matrices: function ()
## split_edge: function (Ei, t, tolerance = 0)
## temp_PtE: NULL
## tolerance: list
## transform: FALSE
## vertex_unit: degrees
## which_longlat: sf
## .. .. .. .. .. ..$ fem_mesh :List of 4
## .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. ..@ i : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. ..@ j : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. ..@ x : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
## .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. ..@ i : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
## .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. ..@ x : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
## .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. ..@ i : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
## .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
## .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. ..@ x : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
## .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. ..@ i : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
## .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
## .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. ..@ x : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
## .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. ..$ n.spde : int 13932
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
## .. .. .. .. ..$ type : chr "cgeneric"
## .. .. .. .. ..$ n : num 13932
## .. .. .. .. ..$ values : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ group :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : int 1
## .. .. .. .. .. ..$ label : chr "field.group"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 1
## .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "exchangeable"
## .. .. .. .. ..$ type : chr "exchangeable"
## .. .. .. .. ..$ n : num 1
## .. .. .. .. ..$ values : int 1
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ replicate :List of 8
## .. .. .. .. ..$ input :List of 4
## .. .. .. .. .. ..$ input : language data_rspde_bru_stat[["repl"]]
## .. .. .. .. .. ..$ label : chr "field.repl"
## .. .. .. .. .. ..$ layer : NULL
## .. .. .. .. .. ..$ selector: NULL
## .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
## .. .. .. .. ..$ mapper :List of 4
## .. .. .. .. .. ..$ levels : chr [1:4] "15" "22" "29" "8"
## .. .. .. .. .. ..$ factor_mapping: chr "full"
## .. .. .. .. .. ..$ indexed : logi TRUE
## .. .. .. .. .. ..$ n : int 4
## .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
## .. .. .. .. ..$ model : chr "iid"
## .. .. .. .. ..$ type : chr "iid"
## .. .. .. .. ..$ n : int 4
## .. .. .. .. ..$ values : int [1:4] 1 2 3 4
## .. .. .. .. ..$ season.length : NULL
## .. .. .. .. ..$ factor_mapping: NULL
## .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
## .. .. .. ..$ weights : NULL
## .. .. .. ..$ copy : NULL
## .. .. .. ..$ marginal : NULL
## .. .. .. ..$ env :<environment: R_GlobalEnv>
## .. .. .. ..$ env_extra :<environment: 0x5b392e175e68>
## .. .. .. ..$ fcall : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1, nrep = 4L, values = BRU_field_values)
## .. .. .. ..$ mapper :List of 6
## .. .. .. .. ..$ mappers :List of 2
## .. .. .. .. .. ..$ mapper:List of 9
## .. .. .. .. .. .. ..$ mappers :List of 3
## .. .. .. .. .. .. .. ..$ main :List of 1
## .. .. .. .. .. .. .. .. ..$ model:List of 21
## .. .. .. .. .. .. .. .. .. ..$ f :List of 3
## .. .. .. .. .. .. .. .. .. .. ..$ model : chr "cgeneric"
## .. .. .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
## .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
## .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
## .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints :List of 5
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n : int 13932
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug : int 0
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ m_alpha : int 1
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles :List of 4
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_less : num [1:58136] 0.0534 0 0 0 0.0776 ...
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model : chr "inla_cgeneric_rspde_stat_int_model"
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
## .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices :List of 1
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
## .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
## .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
## .. .. .. .. .. .. .. .. .. ..$ cgeneric_type : chr "int_alpha"
## .. .. .. .. .. .. .. .. .. ..$ nu : num 0.5
## .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean : num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. ..$ prior.nu :List of 4
## .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
## .. .. .. .. .. .. .. .. .. .. ..$ mean : num 1
## .. .. .. .. .. .. .. .. .. .. ..$ prec : num 3
## .. .. .. .. .. .. .. .. .. .. ..$ logscale : num 1
## .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec : num [1:2, 1:2] 0.1 0 0 0.1
## .. .. .. .. .. .. .. .. .. ..$ start.nu : num 0.5
## .. .. .. .. .. .. .. .. .. ..$ integer.nu : logi TRUE
## .. .. .. .. .. .. .. .. .. ..$ start.theta : num [1:2] 0 1.35
## .. .. .. .. .. .. .. .. .. ..$ stationary : logi TRUE
## .. .. .. .. .. .. .. .. .. ..$ rspde.order : num 2
## .. .. .. .. .. .. .. .. .. ..$ dim : num 1
## .. .. .. .. .. .. .. .. .. ..$ est_nu : logi FALSE
## .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound : num 2
## .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist : chr "lognormal"
## .. .. .. .. .. .. .. .. .. ..$ debug : logi FALSE
## .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
## .. .. .. .. .. .. .. .. .. ..$ mesh :Classes 'metric_graph', 'R6' <metric_graph>
## Public:
## add_mesh_observations: function (data = NULL, group = NULL)
## add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE,
## buildC: function (alpha = 2, edge_constraint = FALSE)
## buildDirectionalConstraints: function (alpha = 1)
## C: NULL
## characteristics: list
## check_distance_consistency: function ()
## check_euclidean: function ()
## clear_observations: function ()
## clone: function (deep = FALSE)
## CoB: NULL
## compute_characteristics: function (check_euclidean = FALSE)
## compute_fem: function (petrov = FALSE)
## compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_geodist_mesh: function ()
## compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0)
## compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0)
## compute_PtE_edges: function ()
## compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE,
## compute_resdist_mesh: function ()
## compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE,
## coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE)
## drop_na: function (...)
## E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
## edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
## edges: metric_graph_edges
## edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL,
## fem_basis: function (PtE)
## filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## geo_dist: list
## get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE)
## get_degrees: function (which = "degree")
## get_edge_lengths: function (unit = NULL)
## get_edge_weights: function (data.frame = FALSE, tibble = TRUE)
## get_groups: function (get_cols = FALSE)
## get_initial_graph: function ()
## get_locations: function ()
## get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE)
## get_PtE: function ()
## get_vertices_incomp_dir: function ()
## initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL,
## is_tree: function ()
## Laplacian: NULL
## mesh: list
## mesh_A: function (PtE)
## mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## nE: 11104
## nV: 8781
## observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE)
## plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE,
## plot_connections: function ()
## plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE,
## plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black",
## print: function ()
## process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge",
## prune_vertices: function (check_weights = TRUE, verbose = FALSE)
## PtV: NULL
## res_dist: NULL
## select: function (..., .drop_na = FALSE, .drop_all_na = TRUE)
## set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL)
## summarise: function (..., .include_graph_groups = FALSE, .groups = NULL,
## summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE,
## V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
## vertices: metric_graph_vertices
## VtEfirst: function ()
## Private:
## A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE,
## add_vertices: function (PtE, tolerance = 1e-10, verbose)
## addinfo: FALSE
## clear_initial_info: function ()
## compute_degrees: function ()
## compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose)
## compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit,
## connected: TRUE
## coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string,
## create_update_vertices: function ()
## crs: crs
## data: metric_graph_data, list
## edge_weights: tbl_df, tbl, data.frame
## find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat)
## find_mesh_bc: function ()
## get_edge_weights_internal: function (data.frame = FALSE)
## group_col: .group
## initial_edges_added: NULL
## initial_graph: metric_graph, R6
## kirchhoff_weights: NULL
## length_unit: km
## line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs,
## longlat: TRUE
## merge_close_vertices: function (tolerance, fact)
## merge.all.deg2: function ()
## mesh_merge_deg2: function ()
## mesh_merge_outs: function ()
## move_V_first: function ()
## plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black",
## plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)",
## proj4string: NULL
## prune_warning: FALSE
## pruned: FALSE
## PtE_to_mesh: function (PtE)
## ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613 ...
## remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string,
## remove.first.deg2: function (res)
## set_first_weights: function (weights = rep(1, self$nE))
## set_petrov_matrices: function ()
## split_edge: function (Ei, t, tolerance = 0)
## temp_PtE: NULL
## tolerance: list
## transform: FALSE
## vertex_unit: degrees
## which_longlat: sf
## .. .. .. .. .. .. .. .. .. ..$ fem_mesh :List of 4
## .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ i : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ j : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ x : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ i : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ x : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ i : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ x : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ i : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ p : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim : int [1:2] 13932 13932
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ x : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
## .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
## .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
## .. .. .. .. .. .. .. .. .. ..$ n.spde : int 13932
## .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ group :List of 1
## .. .. .. .. .. .. .. .. ..$ n: num 1
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
## .. .. .. .. .. .. .. ..$ replicate:List of 4
## .. .. .. .. .. .. .. .. ..$ levels : chr [1:4] "15" "22" "29" "8"
## .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
## .. .. .. .. .. .. .. .. ..$ indexed : logi TRUE
## .. .. .. .. .. .. .. .. ..$ n : int 4
## .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
## .. .. .. .. .. .. ..$ n_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : num 13932
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: int 4
## .. .. .. .. .. .. ..$ n_inla_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : num 13932
## .. .. .. .. .. .. .. ..$ group : num 1
## .. .. .. .. .. .. .. ..$ replicate: int 4
## .. .. .. .. .. .. ..$ values_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
## .. .. .. .. .. .. ..$ values_inla_multi:List of 3
## .. .. .. .. .. .. .. ..$ main : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
## .. .. .. .. .. .. .. ..$ group : int 1
## .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
## .. .. .. .. .. .. ..$ is_linear_multi :List of 3
## .. .. .. .. .. .. .. ..$ main : logi TRUE
## .. .. .. .. .. .. .. ..$ group : logi TRUE
## .. .. .. .. .. .. .. ..$ replicate: logi TRUE
## .. .. .. .. .. .. ..$ n : num 55728
## .. .. .. .. .. .. ..$ n_inla : num 55728
## .. .. .. .. .. .. ..$ is_linear : logi TRUE
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
## .. .. .. .. .. ..$ scale : list()
## .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
## .. .. .. .. ..$ : Named logi [1:2] TRUE TRUE
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ is_linear: logi TRUE
## .. .. .. .. ..$ n_multi : Named int [1:2] 55728 NA
## .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
## .. .. .. .. ..$ n : num 55728
## .. .. .. .. ..$ names : chr [1:2] "mapper" "scale"
## .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
## .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
## .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
## .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
## .. ..$ formula:Class 'formula' language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1, values = BRU_Intercept_v| __truncated__ ...
## .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv>
## .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
## ..$ lhoods :List of 1
## .. ..$ :List of 17
## .. .. ..$ family : chr "gaussian"
## .. .. ..$ formula :Class 'formula' language speed ~ .
## .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x5b392e8903f8>
## .. .. ..$ response_data :List of 4
## .. .. .. ..$ BRU_response: num [1:22070] 9.66 19.31 17.7 24.14 0 ...
## .. .. .. ..$ BRU_E : num 1
## .. .. .. ..$ BRU_Ntrials : num 1
## .. .. .. ..$ BRU_scale : num 1
## .. .. ..$ data :List of 8
## .. .. .. ..$ speed : num [1:22070] 9.66 19.31 17.7 24.14 0 ...
## .. .. .. ..$ SpeedLimit : num [1:22070] -1.21 -1.21 -1.21 -1.21 -1.21 ...
## .. .. .. ..$ .coord_x : num [1:22070] -122 -122 -122 -122 -122 ...
## .. .. .. ..$ .coord_y : num [1:22070] 37.8 37.8 37.8 37.8 37.8 ...
## .. .. .. ..$ .edge_number : num [1:22070] 3 3 3 3 3 3 3 6 6 6 ...
## .. .. .. ..$ .distance_on_edge: num [1:22070] 0.0611 0.2701 0.4171 0.5363 0.6388 ...
## .. .. .. ..$ .group : chr [1:22070] "15" "15" "15" "15" ...
## .. .. .. ..$ loc : num [1:22070, 1:2] 3 3 3 3 3 3 3 6 6 6 ...
## .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
## .. .. ..$ E : num 1
## .. .. ..$ Ntrials : num 1
## .. .. ..$ weights : num 1
## .. .. ..$ scale : num 1
## .. .. ..$ samplers : NULL
## .. .. ..$ linear : logi TRUE
## .. .. ..$ expr : NULL
## .. .. ..$ response : chr "BRU_response"
## .. .. ..$ inla.family : chr "gaussian"
## .. .. ..$ domain : NULL
## .. .. ..$ used :List of 2
## .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
## .. .. .. ..$ latent: chr(0)
## .. .. .. ..- attr(*, "class")= chr "bru_used"
## .. .. ..$ allow_combine : logi TRUE
## .. .. ..$ control.family: NULL
## .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
## .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
## ..$ options :List of 14
## .. ..$ bru_verbose : num 0
## .. ..$ bru_verbose_store: num Inf
## .. ..$ bru_max_iter : num 1
## .. ..$ bru_run : logi TRUE
## .. ..$ bru_int_args :List of 3
## .. .. ..$ method: chr "stable"
## .. .. ..$ nsub1 : num 30
## .. .. ..$ nsub2 : num 9
## .. ..$ bru_method :List of 6
## .. .. ..$ taylor : chr "pandemic"
## .. .. ..$ search : chr "all"
## .. .. ..$ factor : num 1.62
## .. .. ..$ rel_tol : num 0.1
## .. .. ..$ max_step : num 2
## .. .. ..$ line_opt_method: chr "onestep"
## .. ..$ bru_compress_cp : logi TRUE
## .. ..$ bru_debug : logi FALSE
## .. ..$ E : num 1
## .. ..$ Ntrials : num 1
## .. ..$ control.compute :List of 3
## .. .. ..$ config: logi TRUE
## .. .. ..$ dic : logi TRUE
## .. .. ..$ waic : logi TRUE
## .. ..$ control.inla :List of 1
## .. .. ..$ int.strategy: chr "auto"
## .. ..$ control.fixed :List of 1
## .. .. ..$ expand.factor.strategy: chr "inla"
## .. ..$ verbose : logi FALSE
## .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
## ..$ inlabru_version: Named chr "2.10.1.9007"
## .. ..- attr(*, "names")= chr "version"
## ..$ INLA_version : Named chr "24.05.18-2"
## .. ..- attr(*, "names")= chr "version"
## ..- attr(*, "class")= chr [1:2] "bru_info" "list"
## - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"## Time difference of 2.621644 mins## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_stat[["repl"]])
## Likelihoods:
## Family: 'gaussian'
## Data class: 'metric_graph_data', 'list'
## Predictor: speed ~ .
## Time used:
## Pre = 0.713, Running = 37.8, Post = 6.83, Total = 45.3
## Fixed effects:
## mean sd 0.025quant 0.5quant 0.975quant mode kld
## Intercept 27.443 0.284 26.891 27.442 28.004 27.442 0
## SpeedLimit 3.258 0.164 2.937 3.258 3.576 3.258 0
##
## Random effects:
## Name Model
## field CGeneric
##
## Model hyperparameters:
## mean sd 0.025quant 0.5quant
## Precision for the Gaussian observations 0.011 0.000 0.011 0.011
## Theta1 for field 2.823 0.017 2.789 2.823
## Theta2 for field -1.364 0.068 -1.497 -1.364
## 0.975quant mode
## Precision for the Gaussian observations 0.012 0.011
## Theta1 for field 2.856 2.823
## Theta2 for field -1.230 -1.366
##
## Deviance Information Criterion (DIC) ...............: 167398.00
## Deviance Information Criterion (DIC, saturated) ....: 28208.47
## Effective number of parameters .....................: 6156.11
##
## Watanabe-Akaike information criterion (WAIC) ...: 167588.70
## Effective number of parameters .................: 5121.72
##
## Marginal log-Likelihood: -86777.63
## is computed
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')## mean sd 0.025quant 0.5quant 0.975quant mode
## std.dev 16.826100 0.2843390 16.276100 16.823100 17.392800 16.816400
## range 0.256159 0.0173474 0.223969 0.255497 0.292082 0.2541111.2 Nonstationary model
- Observe that we are using the computed parameters from the stationary model as initial values for the nonstationary models.
nonstat.time.ini <- Sys.time()
################################################################################
############################# NON STATIONARY MODEL #############################
################################################################################
B.sigma = cbind(0, 1, 0, mesh$SpeedLimit, 0)
B.range = cbind(0, 0, 1, 0, mesh$SpeedLimit)
init.vec.theta = c(fit.rspde$summary.log.std.dev$mode,
fit.rspde$summary.log.range$mode,
rep(0, (ncol(B.sigma)-3)))
rspde_model_nonstat <- rspde.metric_graph(sf_graph,
start.theta = init.vec.theta,
theta.prior.mean = init.vec.theta,
B.sigma = B.sigma,
B.range = B.range,
parameterization = "matern",
nu = 0.5)
## Error in rspde.matern(mesh = mesh, nu.upper.bound = nu.upper.bound, rspde.order = rspde.order, : The only column that is allowed to be zero simultaneously on B.sigma and B.range is the first column.str(rspde_model_nonstat)
## Error in eval(expr, envir, enclos): object 'rspde_model_nonstat' not founddata_rspde_bru_nonstat <- graph_data_rspde(rspde_model_nonstat,
repl = ".all",
loc_name = "loc")
## Error in eval(expr, envir, enclos): object 'rspde_model_nonstat' not foundstr(data_rspde_bru_nonstat)
## Error in eval(expr, envir, enclos): object 'data_rspde_bru_nonstat' not foundcmp_nonstat = speed ~ -1 +
Intercept(1) +
SpeedLimit +
field(loc, model = rspde_model_nonstat,
replicate = data_rspde_bru_nonstat[["repl"]])
rspde_fit_nonstat <-
bru(cmp_nonstat,
data = data_rspde_bru_nonstat[["data"]],
family = "gaussian",
options = list(verbose = FALSE)
)
## Error in eval(expr, envir, enclos): object 'data_rspde_bru_nonstat' not found## Time difference of 0.06360102 secs## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'summary': object 'rspde_fit_nonstat' not found## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'summary': object 'rspde_model_nonstat' not found1.3 Crossvalidation 1
#load(here("Models_output/distmatrixfixed.RData"))
points = data %>%
as.data.frame() %>%
st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
mutate(., index = 1:nrow(.)) %>%
st_drop_geometry() %>%
dplyr:::select(speed, .group, index) %>%
mutate(.group = as.numeric(.group)) %>%
group_by(.group) %>%
mutate(indexingroup = seq_len(n())) %>%
ungroup()
distance = seq(from = 0, to = 200, by = 20)/1000The code of chunk below was executed only one time.
{r}
load(here("Models_output/distmatrix_day7142128_hour16.RData"))
points = data %>%
as.data.frame() %>%
mutate(., index = 1:nrow(.)) %>%
dplyr:::select(speed, .group, index) %>%
mutate(.group = as.numeric(.group)) %>%
group_by(.group) %>%
mutate(indexingroup = seq_len(n())) %>%
ungroup()
distance = seq(from = 0, to = 200, by = 20)/1000
GROUPS <- list()
for (j in 1:length(distance)) {
print(j)
GROUPS[[j]] = list()
for (i in 1:nrow(points)) {
rowi = points[i, ]
which.in.group <- which(as.vector(distmatrixlist[[rowi$.group]][rowi$indexingroup,]) <= distance[j])
GROUPS[[j]][[i]] <- filter(points, .group == rowi$.group)[which.in.group, ]$index
}
}
save(GROUPS, file = here("Models_output/GROUPS_day7142128_hour16.RData"))The code of chunk above was executed only one time.
load(here("Models_output/GROUPS_day7142128_hour16.RData"))
mse.stat <- mse.nonstat <- ls.stat <- ls.nonstat <- rep(0,length(distance))
# cross-validation for-loop
for (j in 1:length(distance)) {
print(j)
# cross-validation of the stationary model
cv.stat <- inla.group.cv(rspde_fit_stat, groups = GROUPS[[j]])
# cross-validation of the nonstationary model
cv.nonstat <- inla.group.cv(rspde_fit_nonstat, groups = GROUPS[[j]])
# obtain MSE and LS
mse.stat[j] <- mean((cv.stat$mean - points$speed)^2)
mse.nonstat[j] <- mean((cv.nonstat$mean - points$speed)^2)
ls.stat[j] <- mean(log(cv.stat$cv))
ls.nonstat[j] <- mean(log(cv.nonstat$cv))
}
## [1] 1
## Error in eval(expr, envir, enclos): object 'rspde_fit_nonstat' not found
## plot results
par(mfrow = c(2,2), family = "Palatino")
# Plot MSE
plot(distance, mse.stat, main = "MSE", ylim = c(min(mse.nonstat, mse.stat), max(mse.nonstat, mse.stat)),
type = "l", ylab = "MSE", xlab = "distance in m", col = "black")
lines(distance, mse.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)
# Plot log-score
plot(distance, -ls.stat, main = "log-score", ylim = c(min(-ls.nonstat, -ls.stat), max(-ls.nonstat, -ls.stat)),
type = "l", ylab = "log-score", xlab = "distance in m", col = "black")
lines(distance, -ls.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)